【原】Excel各種密碼解鎖姿勢（收藏備用）

VBA說 2020-04-07

展開全文

Excel加密破解

日常工作中，經常會遇到加密工作簿或者工作表忘記密碼的情況，今天，我們就介紹一下excel常見加密類型，以及常用解決辦法。

關于Excel方面的密碼大致可以分為以下三種類型

工作薄打開密碼、工作薄保護密碼

1.1工作簿保護密碼

Excel工作簿保護后（審閱 - 保護工作簿）

保護后，工作表無法插入、刪除和取消隱藏等操作。

解密方法：

在上圖工作表標簽右鍵菜單中點擊"查看代碼“打開一個新的窗口(Visual baisc 編輯器)，插入-模塊，然后把下面的代碼粘貼到右側的空白窗口。

代碼請輸入內容

Sub test()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub

把光標放在代碼中，點工具欄中的運行按鈕，運行上面代碼后，會把原文件另存為一個新的Excel文件，這時只需要重新保存即可。工作簿密碼在新文件中已取消。

1.2工作簿打開密碼

加密方法：文件-信息-保護工作簿（13版本）

加密過的工作簿，打開時候，只有輸入密碼才能看到工作簿內容。

破解方法：軟件破解 Accent OFFICE Password Recovery

這個軟件，我在網上找了好久，找到一個免費可用版！

窮舉破解，最慢，密碼越簡單越好破解。

鏈接：https://pan.baidu.com/s/1dG7TaUl密碼：azc5

工作表保護密碼

寫保護方法：Excel工作簿保護后（審閱 - 保護工作表）

破解方法：

軟件破解 Accent OFFICE Password Recovery

秒破?。ǔ晒β?0%以上）

可能給出的密碼和實際的密碼不一致（編碼問題），但是填入以后，絕對能解除密碼。

VBAProject工程密碼

加密方法：VBE工具-- VBAProject工程屬性

加密過保存以后，再打開vbe界面查看代碼時，就出現(xiàn)以下提示。

解密方法：

將如下代碼寫入任意excel模塊運行即可破解：（成功率90）

Private Sub VBAPassword2()
'你要解保護的Excel文件路徑
Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "沒找到相關文件,清重新設置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '備份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "請先對VBA編碼設置一個保護密碼...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1

'取得一個0D0A十六進制字串
Get #1, CMGs - 2, St
'取得一個20十六制字串
Get #1, DPBo + 16, s20
'替換加密部份機碼
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配對符號
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub