excel表格忘記打開密碼怎么辦（excel表格文件忘記打開密碼怎么辦）

你們知道excell表格密碼怎樣破解嗎?現(xiàn)在大家都會對文件進(jìn)行加密，下面就來看看破解excel表格密碼教程吧。

excel表格密碼破解方法：

1、打開您需要破解保護(hù)密碼的Excel文件;

2、依次點(diǎn)擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa;

3、停止錄制(這樣得到一個空宏);

4、依次點(diǎn)擊菜單欄上的工具---宏----宏,選aa,點(diǎn)編輯按鈕;

5、刪除窗口中的所有字符(只有幾個),替換為下面的內(nèi)容;

從橫線下開始復(fù)制

------------------------------------------------------------------------------------------

Option?Explicit

Public?Sub?AllInternalPasswords()

\'?Breaks?worksheet?and?workbook?structure?passwords.?Bob?McCormick

\'?probably?originator?of?base?code?algorithm?modified?for?coverage

\'?of?workbook?structure?/?windows?passwords?and?for?multiple?passwords

\'

\'?Norman?Harker?and?JE?McGimpsey?27-Dec-2002?(Version?1.1)

\'?Modified?2003-Apr-04?by?JEM:?All?msgs?to?constants,?and

\'?eliminate?one?Exit?Sub?(Version?1.1.1)

\'?Reveals?hashed?passwords?NOT?original?passwords

Const?DBLSPACE?As?String?=?vbNewLine?&?vbNewLine

Const?AUTHORS?As?String?=?DBLSPACE?&?vbNewLine?&?_

"Adapted?from?Bob?McCormick?base?code?by"?&?_

"Norman?Harker?and?JE?McGimpsey"

Const?HEADER?As?String?=?"AllInternalPasswords?User?Message"

Const?VERSION?As?String?=?DBLSPACE?&?"Version?1.1.1?2003-Apr-04"

Const?REPBACK?As?String?=?DBLSPACE?&?"Please?report?failure?"?&?_

"to?the?microsoft.public.excel.programming?newsgroup."

Const?ALLCLEAR?As?String?=?DBLSPACE?&?"The?workbook?should?"?&?_

"now?be?free?of?all?password?protection,?so?make?sure?you:"?&?_

DBLSPACE?&?"SAVE?IT?NOW!"?&?DBLSPACE?&?"and?also"?&?_

DBLSPACE?&?"BACKUP!,?BACKUP!!,?BACKUP!!!"?&?_

DBLSPACE?&?"Also,?remember?that?the?password?was?"?&?_

"put?there?for?a?reason.?Don\'t?stuff?up?crucial?formulas?"?&?_

"or?data."?&?DBLSPACE?&?"Access?and?use?of?some?data?"?&?_

"may?be?an?offense.?If?in?doubt,?don\'t."

Const?MSGNOPWORDS1?As?String?=?"There?were?no?passwords?on?"?&?_

"sheets,?or?workbook?structure?or?windows."?&?AUTHORS?&?VERSION

Const?MSGNOPWORDS2?As?String?=?"There?was?no?protection?to?"?&?_

"workbook?structure?or?windows."?&?DBLSPACE?&?_

"Proceeding?to?unprotect?sheets."?&?AUTHORS?&?VERSION

Const?MSGTAKETIME?As?String?=?"After?pressing?OK?button?this?"?&?_

"will?take?some?time."?&?DBLSPACE?&?"Amount?of?time?"?&?_

"depends?on?how?many?different?passwords,?the?"?&?_

"passwords,?and?your?computer\'s?specification."?&?DBLSPACE?&?_

"Just?be?patient!?Make?me?a?coffee!"?&?AUTHORS?&?VERSION

Const?MSGPWORDFOUND1?As?String?=?"You?had?a?Worksheet?"?&?_

"Structure?or?Windows?Password?set."?&?DBLSPACE?&?_

"The?password?found?was:?"?&?DBLSPACE?&?"$$"?&?DBLSPACE?&?_

"Note?it?down?for?potential?future?use?in?other?workbooks?by?"?&?_

"the?same?person?who?set?this?password."?&?DBLSPACE?&?_

"Now?to?check?and?clear?other?passwords."?&?AUTHORS?&?VERSION

Const?MSGPWORDFOUND2?As?String?=?"You?had?a?Worksheet?"?&?_

"password?set."?&?DBLSPACE?&?"The?password?found?was:?"?&?_

DBLSPACE?&?"$$"?&?DBLSPACE?&?"Note?it?down?for?potential?"?&?_

"future?use?in?other?workbooks?by?same?person?who?"?&?_

"set?this?password."?&?DBLSPACE?&?"Now?to?check?and?clear?"?&?_

"other?passwords."?&?AUTHORS?&?VERSION

Const?MSGONLYONE?As?String?=?"Only?structure?/?windows?"?&?_

"protected?with?the?password?that?was?just?found."?&?_

ALLCLEAR?&?AUTHORS?&?VERSION?&?REPBACK

Dim?w1?As?Worksheet,?w2?As?Worksheet

Dim?i?As?Integer,?j?As?Integer,?k?As?Integer,?l?As?Integer

Dim?m?As?Integer,?n?As?Integer,?i1?As?Integer,?i2?As?Integer

Dim?i3?As?Integer,?i4?As?Integer,?i5?As?Integer,?i6?As?Integer

Dim?PWord1?As?String

Dim?ShTag?As?Boolean,?WinTag?As?Boolean

Application.ScreenUpdating?=?False

With?ActiveWorkbook

WinTag?=?.ProtectStructure?Or?.ProtectWindows

End?With

ShTag?=?False

For?Each?w1?In?Worksheets

ShTag?=?ShTag?Or?w1.ProtectContents

Next?w1

If?Not?ShTag?And?Not?WinTag?Then

MsgBox?MSGNOPWORDS1,?vbInformation,?HEADER

Exit?Sub

End?If

MsgBox?MSGTAKETIME,?vbInformation,?HEADER

If?Not?WinTag?Then

MsgBox?MSGNOPWORDS2,?vbInformation,?HEADER

Else

On?Error?Resume?Next

Do?\'dummy?do?loop

For?i?=?65?To?66:?For?j?=?65?To?66:?For?k?=?65?To?66

For?l?=?65?To?66:?For?m?=?65?To?66:?For?i1?=?65?To?66

For?i2?=?65?To?66:?For?i3?=?65?To?66:?For?i4?=?65?To?66

For?i5?=?65?To?66:?For?i6?=?65?To?66:?For?n?=?32?To?126

With?ActiveWorkbook

.Unprotect?Chr(i)?&?Chr(j)?&?Chr(k)?&?_

Chr(l)?&?Chr(m)?&?Chr(i1)?&?Chr(i2)?&?_

Chr(i3)?&?Chr(i4)?&?Chr(i5)?&?Chr(i6)?&?Chr(n)

If?.ProtectStructure?=?False?And?_

.ProtectWindows?=?False?Then

PWord1?=?Chr(i)?&?Chr(j)?&?Chr(k)?&?Chr(l)?&?_

Chr(m)?&?Chr(i1)?&?Chr(i2)?&?Chr(i3)?&?_

Chr(i4)?&?Chr(i5)?&?Chr(i6)?&?Chr(n)

MsgBox?Application.Substitute(MSGPWORDFOUND1,?_

"$$",?PWord1),?vbInformation,?HEADER

Exit?Do?\'Bypass?all?for...nexts

End?If

End?With

Next:?Next:?Next:?Next:?Next:?Next

Next:?Next:?Next:?Next:?Next:?Next

Loop?Until?True

On?Error?GoTo?0

End?If

If?WinTag?And?Not?ShTag?Then

MsgBox?MSGONLYONE,?vbInformation,?HEADER

Exit?Sub

End?If

On?Error?Resume?Next

For?Each?w1?In?Worksheets

\'Attempt?clearance?with?PWord1

w1.Unprotect?PWord1

Next?w1

On?Error?GoTo?0

ShTag?=?False

For?Each?w1?In?Worksheets

\'Checks?for?all?clear?ShTag?triggered?to?1?if?not.

ShTag?=?ShTag?Or?w1.ProtectContents

Next?w1

If?ShTag?Then

For?Each?w1?In?Worksheets

With?w1

If?.ProtectContents?Then

On?Error?Resume?Next

Do?\'Dummy?do?loop

For?i?=?65?To?66:?For?j?=?65?To?66:?For?k?=?65?To?66

For?l?=?65?To?66:?For?m?=?65?To?66:?For?i1?=?65?To?66

For?i2?=?65?To?66:?For?i3?=?65?To?66:?For?i4?=?65?To?66

For?i5?=?65?To?66:?For?i6?=?65?To?66:?For?n?=?32?To?126

.Unprotect?Chr(i)?&?Chr(j)?&?Chr(k)?&?_

Chr(l)?&?Chr(m)?&?Chr(i1)?&?Chr(i2)?&?Chr(i3)?&?_

Chr(i4)?&?Chr(i5)?&?Chr(i6)?&?Chr(n)

If?Not?.ProtectContents?Then

PWord1?=?Chr(i)?&?Chr(j)?&?Chr(k)?&?Chr(l)?&?_

Chr(m)?&?Chr(i1)?&?Chr(i2)?&?Chr(i3)?&?_

Chr(i4)?&?Chr(i5)?&?Chr(i6)?&?Chr(n)

MsgBox?Application.Substitute(MSGPWORDFOUND2,?_

"$$",?PWord1),?vbInformation,?HEADER

\'leverage?finding?Pword?by?trying?on?other?sheets

For?Each?w2?In?Worksheets

w2.Unprotect?PWord1

Next?w2

Exit?Do?\'Bypass?all?for...nexts

End?If

Next:?Next:?Next:?Next:?Next:?Next

Next:?Next:?Next:?Next:?Next:?Next

Loop?Until?True

On?Error?GoTo?0

End?If

End?With

Next?w1

End?If

MsgBox?ALLCLEAR?&?AUTHORS?&?VERSION?&?REPBACK,?vbInformation,?HEADER

End?Sub

-----------------------------------------------------------------------------------------

復(fù)制到橫線以上

6、關(guān)閉編輯窗口;

7、依次點(diǎn)擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運(yùn)行,確定兩次;

等一會,就會出現(xiàn)以下對話框：這就是Excel密碼對應(yīng)的原始密碼(此密碼和原先設(shè)置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復(fù)密碼設(shè)置，就可以用此密碼進(jìn)行保護(hù)，他就能用他設(shè)置的密碼打開，你可以試試，很有趣的。字母一定要大寫)。

以上就是破解excel表格密碼教程，希望可以幫助到大家。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。