本文鏈接：https://blog.csdn.net/ccdabc123/article/details/85333422

本文介紹在 Excel 的多個(gè)文件版本中破解各類密碼，包含文件的查看席里、只讀密碼嘿架，工作表眨补、工作簿的保護(hù)密碼滔悉，以及 VBA 工程密碼扳缕。內(nèi)容非常全面驶社，建議你收藏堵腹。文件作者加密碼是防止數(shù)據(jù)被查看奔脐，修改俄周，所以，文件密碼破解僅供于學(xué)習(xí)參考髓迎，請(qǐng)尊重作者版權(quán)峦朗，不要斷人財(cái)路。

下面的有些操作不易撤銷排龄，為了防止文件被破壞甚垦，破解密碼前建議備份原文件。

1. 文件查看涣雕、只讀密碼破解

Excel 文件的查看艰亮、只讀密碼目前只能采用暴力破解，就是用成千上萬(wàn)個(gè)密碼一個(gè)一個(gè)去試挣郭。非常消耗資源迄埃，取決于你密碼的長(zhǎng)度和復(fù)雜程度，有時(shí)也未必能破解成功兑障。目前我還沒有找到比較好的免費(fèi)工具去破解此類密碼侄非，有一定及時(shí)推薦。在這里我介紹兩個(gè)網(wǎng)站可以破解此類密碼流译，付費(fèi)的逞怨。
??http://www.password-online.com/index.php
??http://www.decryptum.com/
上傳文件前請(qǐng)檢查文件是否含比較私密的內(nèi)容。

2. 工作表福澡、工作簿保護(hù)密碼破解

此密碼主要用于防止數(shù)據(jù)表的表格叠赦、格式、內(nèi)容革砸、公式等被修改刪除除秀。當(dāng)工作表的單元格被保護(hù)時(shí)糯累，試圖編輯或刪除那些單元格時(shí)你會(huì)收到提示 “試圖更改的單元格或圖表在受保護(hù)的工作表中” 告訴你編輯失敗。工作簿被保護(hù)時(shí)册踩，則不能新增泳姐、刪除工作表。此類密碼的破解方法因文件的后綴而異：

1) 后綴為 .xls 的文件

用 Excel 打開工作簿暂吉，然后按 Alt + F11 進(jìn)入 “開發(fā)工具” 界面胖秒，如下圖：

image

在左邊的工程欄（Project）中選定節(jié)點(diǎn) “ThisWorkbook”，雙擊左鍵慕的，然后把下面的代碼復(fù)制到右邊的代碼編輯框中

Public Sub 工作表保護(hù)密碼破解()
    Const DBLSPACE As String = vbNewLine & vbNewLine
    Const AUTHORS As String = DBLSPACE & vbNewLine & _
        "作者:McCormick   JE McGimpsey "
    Const HEADER As String = "工作表保護(hù)密碼破解"
    Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
    Const REPBACK As String = DBLSPACE & ""
    Const ZHENGLI As String = DBLSPACE & ""
    Const ALLCLEAR As String = DBLSPACE & "該工作簿中的工作表密碼保護(hù)已全部解除!!" & DBLSPACE & "請(qǐng)記得另保存" _
        & DBLSPACE & "注意：不要用在不當(dāng)?shù)胤窖指危鹬厮说膭趧?dòng)成果！"
    Const MSGNOPWORDS1 As String = "該文件工作表中沒有加密"
    Const MSGNOPWORDS2 As String = "該文件工作表中沒有加密2"
    Const MSGTAKETIME As String = "解密需花費(fèi)一定時(shí)間,請(qǐng)耐心等候!" & DBLSPACE & "按確定開始破解!"
    Const MSGPWORDFOUND1 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _
        "如果該文件工作表有不同密碼,將搜索下一組密碼并修改清除"
    Const MSGPWORDFOUND2 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _
        "如果該文件工作表有不同密碼,將搜索下一組密碼并解除"
    Const MSGONLYONE As String = "確保為唯一的?"

    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
    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 & ZHENGLI, vbInformation, HEADER
End Sub

完成后如下圖：

image

然后點(diǎn)擊上圖的小三角按鈕（如藍(lán)色圓圈標(biāo)注）執(zhí)行代碼破解密碼业稼。如果 Excel 提示宏被禁用而導(dǎo)致代碼無(wú)法運(yùn)行時(shí)盗痒，先在文件菜單中保存文件蚂蕴，然后關(guān)閉 Excel低散。重新打開 Excel 并啟用宏，按 Alt + F11 回到此界面再點(diǎn)擊小三角按鈕重新進(jìn)行密碼破解骡楼。
破解期間會(huì)出現(xiàn)兩次提示的對(duì)話框熔号，都選擇 “確認(rèn)”。密碼破解完畢之后會(huì)出現(xiàn)如下窗口：

image

這說(shuō)明工作表或工作簿的保護(hù)密碼已被成功清除鸟整。最后按 Alt + F11 回到 “開發(fā)工具” 界面引镊，刪除 “ThisWorkbook” 節(jié)點(diǎn)中的代碼，保存工作表篮条。

后綴為 .xlsx 或 .xlsm 的文件

在這里以 .xlsx 文件為例講解弟头，首先把文件的后綴從 .xlsx 修改成 .rar 或 .zip，然后使用壓縮軟件涉茧，例如 WinRar, 7-Zip 打開壓縮文件赴恨。
工作表被鎖定：進(jìn)入文件夾 xl\worksheets，找到被鎖定的工作表伴栓，例如 sheet1伦连，如下圖：

image

選中此文件 “sheet1.xml” ，右擊钳垮，選擇記事本編輯惑淳。在記事本中查找字符串 <sheetProtection，找到后刪除從 <sheetProtection 到 /> 的內(nèi)容饺窿，如下圖藍(lán)色標(biāo)記：

image

工作簿被鎖定：進(jìn)入文件夾 xl歧焦，找到文件 “workbook.xml”。選定右擊肚医，選擇記事本編輯倚舀，在記事本中查找字符串 <workbookProtection叹哭，找到后刪除從<workbookProtection到/>的內(nèi)容，如下圖藍(lán)色標(biāo)記：

image

刪除完成后在記事本中選擇 “文件” – “保存” 選項(xiàng)保存此文件痕貌。在記事本保存完成后壓縮軟件會(huì)提示你此文件已更改风罩，是否更新？然后選擇 “是”舵稠。
??關(guān)閉壓縮軟件超升，把文件后綴從 .zip 或 .rar 修改回 .xlsx。用 Excel 打開 .xlsx 文件哺徊，此時(shí)你可以發(fā)現(xiàn)工作表或者工作簿的保護(hù)密碼已被清除室琢。

3. VBA 工程密碼破解

VBA 工程密碼也就是宏的保護(hù)密碼，它的破解也因文件的后綴而異：

1) 后綴為 .xls 的文件

--xlxm文件另存為xls文件

打開 Excel落追，新建一個(gè)文檔盈滴，按 Alt + F11 進(jìn)入 “開發(fā)工具” 界面，如下圖：

image

在左邊的工程欄（Project）中選定節(jié)點(diǎn) “ThisWorkbook”轿钠，雙擊左鍵巢钓，然后把下面的代碼復(fù)制到右邊的代碼編輯框中

Private Sub VBAPassword()  '你要解保護(hù)的Excel文件路徑
    Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
    If Dir(Filename) = "" Then
    MsgBox "沒找到相關(guān)文件,清重新設(shè)置。"
        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 "請(qǐng)先對(duì)VBA編碼設(shè)置一個(gè)保護(hù)密碼...", 32, "提示"
    Exit Sub
    End If
    Dim St As String * 2
    Dim s20 As String * 1
    '取得一個(gè)0D0A十六進(jìn)制字串
    Get #1, CMGs - 2, St
    '取得一個(gè)20十六制字串
    Get #1, DPBo + 16, s20
    '替換加密部份機(jī)碼
    For i = CMGs To DPBo Step 2
    Put #1, i, St
    Next
    '加入不配對(duì)符號(hào)
    If (DPBo - CMGs) Mod 2 <> 0 Then
    Put #1, DPBo + 1, s20
    End If
    MsgBox "文件解密成功......", 32, "提示"
    Close #1
End Sub

完成后如下圖：

image

點(diǎn)擊上圖的小三角按鈕（如藍(lán)色圓圈標(biāo)注）執(zhí)行代碼症汹。在系統(tǒng)彈出的 “文件選擇對(duì)話框” 中選擇你要破解密碼的 Excel 文件，選中后點(diǎn)擊 “打開”贷腕。一會(huì) Excel 提示 “文件解密成功”背镇，這代表選定文件的 VBA 工程密碼已被清除。

2) 后綴為 .xlsm 的文件

把文件的后綴從 .xlsm 修改成 .rar 或者 .zip泽裳，然后用壓縮軟件解壓這個(gè)壓縮文件瞒斩。打開解壓后的文件，在文件夾 xl 中找到文件 vbaProject.bin涮总，如下圖：

image

用二進(jìn)制文件編輯軟件胸囱，例如 XVI32 (可直接下載使用，免安裝) 打開 vbaProject.bin 文件妹卿，然后在其中查找 DPB旺矾，如下圖：

image

把 DPB 替換成 DPx, 如下：

image

--將 CMG＝ "XXXXXXX…”的CMG關(guān)鍵字改成CMx，--
--將 DBP＝"XXXXXXX…”的DBP關(guān)鍵字改成DBx夺克，--
--將 GC＝ "XXXXXXX…”的GC關(guān)鍵字改成Gx箕宙，--

使Excel不能識(shí)別此三項(xiàng)！存盤即可Ｆ膛Α＜砼痢！
用Excel打開此文件，忽略錯(cuò)誤提示陷寝，進(jìn)入VBA編輯器锅很，密碼沒有了！
做一次存盤操作即可修復(fù)錯(cuò)誤提示凤跑。

保存文件爆安，重新壓縮，把文件的后綴重新修改回 .xlsm仔引。用 Excel 打開文檔扔仓，期間出現(xiàn)的任何提示都點(diǎn)擊 “是” 或 “確認(rèn)” 忽略它。
??按 Alt + F11 進(jìn)入 “開發(fā)工具” 界面咖耘，在 Tools -> VBAProject Properties 的 Protection 欄重新設(shè)置一個(gè)新的 VBA 工程密碼翘簇，然后保存文件，關(guān)閉 Excel儿倒。
??重新打開之后先前的提示不會(huì)再出現(xiàn)版保，用新密碼也可以成功打開 VBA 工程。VBA 工程密碼重設(shè)成功!