excel表格怎麼撤銷保護

第一步，先找到一個帶有有工作表保護密碼的Excel工作表，然後把後綴名稱改爲.rar。 第二步，用壓縮文件打開，然後找壓縮的對應路徑。 第三步，把從壓縮文件裏面找到的.xml文件，然後拖拽出來，進行修改。 第四步，把保護代碼刪除來撤消工作表保

現在很多人都在使用excel軟件，那麼該如何撤銷工作表保護呢？今天小編爲大家講講如何撤銷工作表保護，希望對大家有所幫助。

材料/工具

工作表

方法

首先打開excel，點擊宏中的選擇“錄製宏”

1、打開受保護的Excel表格，可以看到無法對錶格進行操作。 2、點擊左上角的“文件”選項。 3、在彈出的頁面中點擊“保護工作表”下方的小三角。 4、在彈出的選項中點擊“保護當前工作表”。 5、之後彈出撤銷工作表保護的對話框，輸入密碼（如果之前設

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

1.在桌面中找到需要進行修改的表格，點擊打開該表格進入編輯頁面，如下圖所示。 2.在編輯頁面中找到審閱選項，點擊該選項進入審閱頁面，如下圖所示。 3.在頁面中找到撤銷工作保護選項，點擊該選項進行相關功能，如下圖所示。 4.當撤銷工作表保護

然後在宏中點擊“停止錄製”。

在工作表的標籤上點擊鼠標右鍵——查看代碼——把下面代碼粘貼上，然後按F5 Sub PasswordBreaker() '破解工作表保護密碼 Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Int

然後選擇查看宏。

我有一種方法可以不知道密碼也可以.就是把內容複製到一個新的表格中就可以了,我就經常這樣做,因爲別的公司給我們的價格表老是保護,我就複製到一個新的文件裏就能編輯了. 這個方法只對EXCEL有效,因爲他雖然保護了不能修改但可以看到內容,可以複製

然後點擊編輯。

1、在電腦中找到需要進行才操作的工作表。除此之外還要知道這個工作表的保護密碼。 2、打開此工作表後，點擊功能區內的“審閱”選項。 3、在展開的審閱下拉菜單中點擊選擇箭頭所指的“撤銷工作表保護”。 4、此時系統彈出撤銷工作表保護的對話框。 5

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

1、將Excel文件擴展名改爲rar，如下圖所示： 2、然後用解壓縮文件打開，雙擊其中的xl文件夾，如下圖所示： 3、繼續雙擊其中的worksheets文件夾，如下圖所示： 4、此時就可以看到工作簿中所有的工作表名字，雙擊其中設置了保護工作表的工作表名，

Public Sub AllInternalPasswords()

使用以下步驟進行破解被保護的工作表： 所需材料：記事本、Excel。 一、首先點擊被保存的工作薄，按F2重命名，格式改爲RAR。 二、這時表格會變爲一個壓縮包，打開該壓縮包，打開後雙擊打開XL文件夾。 三、然後再雙擊打開Worksheets文件夾。 四、

' Breaks worksheet and workbook structure passwords. Bob McCormick

工具：excel2011 1、先打開保護密碼的Excel工作表格，如圖所示，修改後綴名稱爲.rar。 2、然後用壓縮文件打開，如圖所示，並找壓縮的路徑。 3、壓縮文件找到.xml後綴的文件，直接拖拽出來，重新修改。 4、找到這個.xml文件打開，在文字裏面搜索p

' probably originator of base code algorithm modified for coverage

取消部分單元格的保護狀態 選中對象單元格區域，右鍵單擊，選擇“設置單元格格式”，如下圖所示； 然後按照前面的操作，清除“鎖定”和“隱藏”前的鉤，如下圖所示。

' of workbook structure / windows passwords and for multiple passwords

1、在電腦上安裝好excel軟件，雙擊這個excel軟件的圖標打開它。 2、去下載一個被文件保護了的excel文檔，通過剛纔打開的excel軟件打開這個被保護的excel文檔。 3、就是雙擊這個被保護了的excel文檔其中某個單元格，發現提示無法進一步編輯 4、點

'

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

示例在EXCEL2007中進行，可以不使用宏設置，直接按以下方法操作。 1、先打開EXCEL,sheet1是一個被保護的工作表，當點擊單元格嘗試編輯時。會提示試圖更改的單元格或圖表在受保護的工作表中！ 2、點擊工作表左上角全選，按Ctrl+C 複製工作表，然

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

在excel中取消工作表的保護命令的方法： 1.打開excel，運行視圖—宏—錄製新宏—輸入宏名如:aa（aa是可隨意輸入）。 2.停止錄製，這樣得到一個空宏。 3.同樣視圖—宏—查看宏—選aa（aa爲之前新建的宏）—點擊編輯按鈕。 4.刪除窗口中的所有字符，複製

' eliminate one Exit Sub (Version 1.1.1)

Excel工作表密碼保護的解除方法 Excel彈出“您試圖更改的單元格或圖表受保護，因而是隻讀的。若要修改受保護單元格或圖表，請先使用‘撤消工作表保護’命令(在‘審閱’選項卡的‘更改’組中)來取消保護。可能會提示您輸入密碼。 出現這種情況，應該怎麼

' Reveals hashed passwords NOT original passwords

1、首先，我們打開一個含有密碼的excel文檔，然後我們點擊文件； 2、彈出的界面，我們點擊信息，然後我們點擊保護工作簿； 3、彈出的界面，我們點擊用密碼進行加密； 4、彈出的界面，我們將密碼進行刪除，刪除後我們點擊確定，這樣我們就取消了

Const DBLSPACE As String = vbNewLine & vbNewLine

一、把Excel文件的擴展名xlsx修改爲Rar。 二、Excel文件變成了壓縮包。（不如果不顯示後輟 ，選中工具欄中的文件擴展名選項） 三、雙擊打開壓縮包，找到 xl - Worksheets。 四、把受保護的工作表sheet1.xml 拖動複製出來。 五、用記事本打開shee

Const AUTHORS As String = DBLSPACE & vbNewLine & _

具體操作如下： 1、如果想要撤銷excel工作表保護，需要知道設置的密碼，然後點擊打開excel表格。 2、點擊excel表格中功能區內的“審閱”。 3、在審閱下的快速啓動工具按鈕中點擊選擇箭頭所指的“撤銷工作表保護”。 4、此時會彈出撤銷工作表保護對話

"Adapted from Bob McCormick base code by" & _

首先打開你要清楚密碼的工作表，點擊那個有密碼的工作簿，可以看到，現在這個工作簿有密碼，是無法修改的，輸入錯誤的密碼也是無用 此時我們按“alt+f11”，進入到office的vba編輯模式，大家不熟悉也不要緊，後面都是很傻瓜的操作，進入之後，選

"Norman Harker and JE McGimpsey"

1、打開要保護的excel。 2、選擇“審閱”選項，可以在該頁面的工具欄上看到有一個“保護工作表”的工具欄。 3、點擊該按鈕，打開“保護工作表”對話框。在該對話框中，需要設定一個取消保護工作表時的密碼，以及保護工作表後，允許進行的操作，將允許

Const HEADER As String = "AllInternalPasswords User Message"

做法如下： 1、點擊菜單欄“工具”按鈕，然後選擇“保護” 2、選擇“撤銷工作表保護” 3、輸入保護密碼→“確認”，即可解除工作表保護 4、保存，關閉。再重新打開工作表，便能自由編輯工作表中的內容了。撤銷成功。

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

Excel中如何破解“撤銷工作表保護密碼”並獲取原始密碼一、保護工作表的方法1、全選定工作表右擊[設置單元格格式]找到[保護]將[鎖定]和[隱藏]兩個的勾去掉；2、將要保護的工作表單元格選定右擊[設置單元格格式]找到[保護]將[鎖定]和[隱藏]兩個的勾

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

以WPS 2019版本爲例： 被加密的文檔需要您先具備解密密碼，如密碼已遺忘，目前官方沒有辦法幫助找回（編輯密碼/打開密碼均不可找回），建議您可嘗試更換大小寫嘗試解鎖。 如您已找回密碼，可參考下方方法解除： 1）開啓了賬號加密：開啓後只有加

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

用vba編制兩個宏可以實現。 第一步：編寫代碼如下： Sub prot()ActiveSheet.ProtectEnd SubSub unprot()ActiveSheet.UnprotectEnd Sub 第二步：點擊宏，選擇prot，設置快捷鍵 ctrl-a。如圖： 第三步：點擊宏，選擇unprot，設置快捷鍵 ctrl-b。如

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

要撤銷工作表保護，不同版本操作方式不一樣。大概就是在工具菜單裏點工作表保護，撤銷保護，再輸入正確的原保護密碼就可以撤銷了。如果你忘記了保護密碼，可以在網上找破解密碼的軟件。

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

首先打開你要清楚密碼的工作表，點擊那個有密碼的工作簿，可以看到，現在這個工作簿有密碼，是無法修改的，輸入錯誤的密碼也是無用 此時我們按“alt+f11”，進入到office的vba編輯模式，大家不熟悉也不要緊，後面都是很傻瓜的操作，進入之後，選

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

一、打開一個你已經編輯好或者需要編輯的excel工作表文檔。打開後在第一行開始任務欄菜單內找到“審閱”選項。（如圖所示） 二、點擊“審閱”選項切換到審閱的菜單界面，在這個菜單界面下找到第四個子菜單“更改”選項框，一般在審閱菜單界面的最後一

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

1、在進行編輯的excel地表的情況下中，那麼就出現提示了無法進行編輯excel。 2、然後需要進行撤銷的excel工作，進行點擊菜單中審閱的菜單。 3、進入到了審閱的菜單之後，進入到了審閱的界面中，進行點擊菜單中的撤銷工作表保護。 4、彈出了撤銷

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表格被保護該怎麼取消不知道密碼？

工具：excel2011

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

2、然後用壓縮文件打開，如圖所示，制並找壓縮的路徑。

3、壓縮文件找到.xml後綴的文件，直接拖拽出來，重新修改。

4、找到這個.xml文件打開，在百文字裏面搜索protection，把從<sheetprotection.........="0"/>的代碼所有的刪除掉。

5、然後再把剛纔的.xml文件，如圖所示，選擇直接拖到壓縮的工作表中兩者開始替換掉。

6、再重新修改後綴爲.xlsx，這個時候就可以打開Excel表格，就沒有了密碼保護。

7、可以看到直接進入了，需要重新密度保的，直接在審閱選項下對工作表重新進行保護即可。

EXCEL 如何對受保護的單元格去掉保護

取消部分單元格的保護狀態

選中對象單元格區域，右鍵單擊，選擇“設置單元格格式”，如下圖所示；

然後按照前面的操作，清除“鎖定”和“隱藏”前的鉤，如下圖所示。

如何取消Excel文檔保護？

1、在電腦上安裝好excel軟件，雙擊這zd個excel軟件的圖標打開它。

2、去下載一個被文件保護了的excel文檔，通過剛纔打開的excel軟件打開這個被保護的excel文檔。

3、就是雙擊這個被保護了的excel文檔其中某個單元格，發現提示無法進一步編輯

4、點擊【確定】這個按鈕，回到版右上角的【文件】那個按鈕，並點擊這個【文件】的按鈕

5、進入【文件】的主頁面，選擇【信息】下面的【保護工作簿】，點擊裏面的【取消保護】這個按鈕。

6、如果沒有密碼就可以直接正常編輯單元格了；被別人設置了密碼，還要跟權別人要密碼，輸入正確密碼之後才能取消文檔保護。

wps中excel表格密碼忘記了，怎麼撤銷工作表保護？

示例在EXCEL2007中進行，可以不使用宏設置，直接按以下方法操作。

1、先打開EXCEL,sheet1是一個被保護的工作表，當點擊單元格嘗試編輯時。會提示試圖更改的單元格或圖表在受保護的工抄作表中！

2、點擊工作表左上zd角全選，按Ctrl+C 複製工作表，然後在右側新建 一個工作表，再次點擊左上角全選，按CTRL+V粘貼，將被保護的工作表粘貼到新的表中，此時的工作表內容與原表相同，只是沒有了密碼保護。

3、刪除原工作表，將新建的工作表名稱改爲原名稱，並移動到原位置即可。

在excel中如何取消工作表的保護命令

在excel中取消工作表的保護命令的方法：

1.打開excel，運行視圖—宏—錄製新宏—輸入宏名如:aa（aa是可隨意輸入）。

2.停止錄製，這樣得到一個空宏。

3.同樣視圖—宏—查看宏—選7a64e4b893e5b19e31333337613739aa（aa爲之前新建的宏）—點擊編輯按鈕。

4.刪除窗口中的所有字符，複製下面的內容粘貼。

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

5.關閉編輯窗口。

6.視圖—宏—查看宏,選AllInternalPasswords，點擊執行，確定兩次，等2分鐘，再確定。密碼撤銷完畢。