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分鐘，再確定。密碼撤銷完畢。