請(qǐng)簡(jiǎn)單回想一下之前說(shuō)的工作表保護(hù)的事情。加密整個(gè)excel文檔、加密工作表、加密部分單元格、加密excel窗口。

那么我們已經(jīng)加了密的文檔忘記密碼了如何解決呢？之前都是給大家說(shuō)密碼一定要自己要備份，那么肯定有人會(huì)問(wèn)那萬(wàn)一就是忘記了怎么辦呢？其實(shí)解決方法是有的。下面小菜老師給大家說(shuō)一下關(guān)于6位一下的密碼如何解決？

第一步：新打開(kāi)一個(gè)excel文檔，同時(shí)按Alt和F11，進(jìn)入VBA界面，

第二步：點(diǎn)菜單上的插入，模塊，

第三步：在新出來(lái)的窗口粘貼一下代碼：

Sub crack()

Dim i As Long

Dim FileName As String

i = 0

FileName = A("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")

FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))

A = False

line2: On Error GoTo line1

Workbooks.Open FileName, , True, , i

MsgBox "Password is " & i

Exit Sub

line1: i = i + 1

Resume line2

A = True

End Sub

注意事項(xiàng)：在測(cè)試的時(shí)候盡量關(guān)掉其他程序，提高速度。

想知道工作表的保護(hù)事兒?jiǎn)?？趕緊關(guān)注微信號(hào)“路凡教育”。。。。小菜老師告訴你相關(guān)的秘密。。。