日常工作中,，經(jīng)常會(huì)遇到加密工作簿或者工作表忘記密碼的情況,，今天，我們就介紹一下excel常見(jiàn)加密類(lèi)型,，以及常用解決辦法,。

關(guān)于Excel方面的密碼大致可以分為以下三種類(lèi)型

1.1工作簿保護(hù)密碼

Excel工作簿保護(hù)后（審閱 - 保護(hù)工作簿）

保護(hù)后,，工作表無(wú)法插入,、刪除和取消隱藏等操作。

解密方法：

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

代碼 請(qǐng)輸入內(nèi)容

 Sub test()

 ActiveWorkbook.Sheets.Copy

 For Each sh In ActiveWorkbook.Sheets

 sh.Visible = True

 Next

 End Sub

把光標(biāo)放在代碼中,，點(diǎn)工具欄中的運(yùn)行按鈕,，運(yùn)行上面代碼后,，會(huì)把原文件另存為一個(gè)新的Excel文件，這時(shí)只需要重新保存即可,。工作簿密碼在新文件中已取消,。

1.2工作簿打開(kāi)密碼

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

加密過(guò)的工作簿，打開(kāi)時(shí)候,，只有輸入密碼才能看到工作簿內(nèi)容,。

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

這個(gè)軟件，我在網(wǎng)上找了好久,，找到一個(gè)免費(fèi)可用版,！

窮舉破解，最慢,，密碼越簡(jiǎn)單越好破解,。

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

寫(xiě)保護(hù)方法：Excel工作簿保護(hù)后（審閱 - 保護(hù)工作表）

破解方法：

軟件破解 Accent OFFICE Password Recovery

秒破！（成功率90%以上）

可能給出的密碼和實(shí)際的密碼不一致（編碼問(wèn)題），但是填入以后,，絕對(duì)能解除密碼,。

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

加密過(guò)保存以后，再打開(kāi)vbe界面查看代碼時(shí),，就出現(xiàn)以下提示,。

解密方法：

將如下代碼寫(xiě)入任意excel模塊運(yùn)行即可破解：（成功率90）

Private Sub VBAPassword2()

'你要解保護(hù)的Excel文件路徑

Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")

If Dir(Filename) = "" Then

MsgBox "沒(méi)找到相關(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