excel忘記保護密碼如何解決

撤銷是不能撤銷的，只能通過破解密碼來實現，可以用修改後綴名稱的方法。度工具：華碩電腦問1、首先找到Excel表格，修改後綴名稱xlsx改為演示操作表格rar，如下圖所示2、然後答用壓縮文件打開，然後打開xl，如下圖所示3、然後把壓縮文件裏面找到的sheet1．xml文件，然後拖拽出來，然後要進行修改，如下圖所示4、然後sheet1.xml文件打開用記事本打開，然後搜索protection，把圖內中的這一段代碼，全部刪除掉，如下圖所示。容5、再把修改後的sheet1．xml文件，選擇拖拽到壓縮的工作蒲中，選擇替換掉就可以，如下圖所示。6、把文件名稱．rar重新更改．xlsx，然後再打開工作表保護就撤銷了，如下圖所示。本回答被網友採納，原發布者:飛蓮無解666如何破解EXCEL工作表保護密碼忘記密碼怎麼辦e5a48de588b6e79fa5e98193313334336237631.新建一個EXCEL工作表，而後點擊另存為，講表格保存為啟用宏的工作表2.一次點擊開發工具---錄製新宏，在彈出的對話框內修改宏名稱而後確定3.依次點擊開發工具----停止錄製宏，宏錄製完成4.依次點擊開發工具，---宏----在彈出的對話框找到我們剛才錄製的宏名稱而後進入VBA界面5.在VBA界面，全選裏面的代碼，而後刪除，講裏面的代碼全部刪除完6.代碼複製到VBA編輯窗口內PublicSubAllInternalPassWords() 'Breaksworksheetandworkbookstructurepasswords.BobMcCormick 'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords ' 'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) 'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version1.1.1) 'RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "AdaptedfromBobMcCormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" ConstREPBACKAsString=DBLS，按下面步驟操作，如果不會發郵件給我吧 [email protected]\打開文件 2\工具---宏----錄製新宏---輸入名字如:aa 3\停止錄製(這樣得到一個空宏) 4\工具---宏----宏,選aa,點編輯按鈕 5\刪除窗口中的所有字符(只有幾個),替換為下面的內容:(你複製吧) Option ExplicitPublic 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 BooleanApplication.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 Sub6\關閉編輯窗口 7\工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鐘e69da5e6ba90e79fa5e9819331333262383635,再確定.OK,沒有密碼了!!本回答被提問者採納www.51dongshi.com防採集。

在做excel表格時我們有時候會給自己的工作表加密，一旦忘記密碼就會很麻煩，下面我們就介紹一下如何繞過密碼，直接撤銷保護。

方法

打開excel，點擊菜單欄的“視圖”，

工具：excel20111、先打開保護密碼的Excel工作表格，如圖所示，修改後綴名稱為.rar。

點擊二級菜單裏的“宏”，選擇錄製宏

使用以下步驟進行破解被保護的工作表：所需材料：記事本、Excel。一、首先點擊被保存的工作薄，按

在彈出來的方框中輸入宏的名稱，點擊確認。

第一步，先找到一個帶有有工作表保護密碼的Excel工作表，然後把後綴名稱改為.rar。第二步，用

重複第一步的步驟，不過這次點擊“停止錄製”。

可以通過以下方法進行破解，步驟如下：1，先找到有工作表保護密碼的Excel表格，然後後綴名稱，從演

選擇查看宏。

Excel,遺忘密碼後如何撤銷工作表保護密碼工作表保護密碼1、打開您需要撤銷保護密碼的Excel文件

編輯宏。

在彈出來的代碼框輸入下面的代碼。Option Explicit

1、按住快捷鍵ALTF11，然後關閉VBA編輯窗口，如圖1所示。在窗口的左側，我們選擇忘記密碼的工作

Public Sub AllInternalPasswords()

用宏代碼破解密碼：以office2007為例説明，（2003也是一樣的，只是菜單命令的位置不同）

' Breaks worksheet and workbook structure passwords. Bob McCormick

工具：excel20111、先打開保護密碼的Excel工作表格，如圖所示，修改後綴名稱為.rar。

' 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

第一步，先找抄到一個帶有有工作表保護密碼的Excel工作表，然後把後綴名稱改為.rar。第二步，用壓縮文件襲打開，然後找壓縮的對應路徑。第三步，把從壓縮文件裏面找到的.xml文件，然後拖拽出來，百進行修改。第四步，把保護代碼刪除來撤消工作表保護，找到這個.xml文件用記事本打開，然後搜索【protection】，把從<sheetprotection.........="0"/>的代碼，全部刪除掉，如圖所示。第五步，然後再把剛剛修改後的.xml文件，選擇拖拽到壓縮的工作表中替換掉。第六步，再把文件名稱後綴改為.xlsx，打開Excel表格，密度碼保護就可以取消了。第七步，撤消保護工作表後，還可以在【審閲】選項下對工作表重新進行進行保護和撤消保護工作表操作，如圖所示，原發布者:教技韋德文Excel,遺忘密e799bee5baa6e59b9ee7ad9431333433623761碼後如何撤銷工作表保護密碼工作表保護密碼1、打開您需要撤銷保護密碼的Excel文件；2、依次點擊菜單欄上的工具---宏----錄製新宏，輸入宏名字如:ab；3、停止錄製(這樣得到一個空宏)；4、依次點擊菜單欄上的工具---宏----宏,選ab,點編輯按鈕；5、刪除窗口中的所有字符(只有幾個),替換為以下內容；PublicSub工作表保護密碼()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"作者:eric"ConstHEADERAsString="工作表保護密碼"ConstVERSIONAsString=DBLSPACE&"版本Version1.1.1"ConstREPBACKAsString=DBLSPACE&""ConstZHENGLIAsString=DBLSPACE&"eric"ConstALLCLEARAsString=DBLSPACE&"該工作簿中的工作表密碼保護已全部解除。"&DBLSPACE&"請記得重新設置密碼"_&DBLSPACE&"注意：此方法僅用於遺忘密碼使用。"ConstMSGNOPWORDS1AsString="該文件工作表中沒有加密"ConstMSGNOPWORDS2AsString="該文件工作表中沒有加密2"ConstMSGTAKETIMEAsString="請耐心等候!"&DBLSPACE&"按確定開始回覆"ConstMSGPWORDFOUND1AsString="密碼重新組合為:"&DBLSPACE&"$$"&DBLSPACE&_"如果該文件工作表有不同密碼,將搜索下一組密碼並修改清除"ConstMSGPWORDFOUND2AsString="密碼重新組合為:"&DBLSPACE&"$$"&DBLSPACE&_"如果該文件，解除工作表密碼保護1、查看代來碼步驟：右鍵【自sheet1】-【查看代碼】-打開代碼窗口。2、插入代碼代碼：Sub DeletePW()ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub步驟：粘貼代碼，點擊【運行】即可zd。來自網頁鏈接，好簡單的方法：1.打開保護密碼的Excel文件2.複製工作表內容3.新建工作表，在新工作表上點擊鼠標右鍵——“選擇性copy粘貼” 注意是選擇性粘貼——彈出對百話框，在粘貼中選擇全部——確定。最後一步重要4.點擊鼠標右鍵——“選擇性粘貼” ——彈出對話框，在粘貼選項中選擇列寬——確定。完成上面就是新建可以編寫的工作表。希望能幫到你！不是保護度工作簿吧？保護工作簿這方法就無用了本回答被提問者採納，最簡單，複製整表，粘貼在全新的表中。複雜的：第1步：在工作表菜單欄上添加[開發工具]。方法是：依次單擊[文件]--->[選項]--->[自定義功能區]命令，在[自定義功能區]主選項卡下面鈎選[開發工具]即可，方法因版本不同稍有差異。當然，已添加的讀者，這一e68a84e799bee5baa631333365656538步是多餘的；第2步：按Alt+F11快捷鍵，打開VBE窗口；第3步：單擊[插入]菜單命令，在其下拉菜單中，選擇[模塊1]；第4步：雙擊[模塊1]，在其代碼窗口下輸入如下的代碼，Sub DeletePW()ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub第5步：在非設計模式下，單擊[運行]按鈕，即可啟動解除密碼程序本回答被提問者和網友採納內容來自www.51dongshi.com請勿採集。