国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

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

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

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

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

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

解密方法：

在上圖工作表標(biāo)簽右鍵菜單中點(diǎn)擊"查看代碼“打開一個(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工作簿打開密碼

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

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

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

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

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

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

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

破解方法：

軟件破解 Accent OFFICE Password Recovery

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

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

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

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

解密方法：

將如下代碼寫入任意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 "沒找到相關(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