方法一：第三方Office Password Remover 軟件

　　通過(guò)數(shù)據(jù)丟失我們會(huì)向?qū)в玫谌綌?shù)據(jù)恢復(fù)軟件來(lái)進(jìn)行修復(fù)，而密碼忘記了，我們也可以采集第三方工具破解密碼的方式來(lái)解決。這里推薦大家使用office2003版： Password Remover2.0軟件。

　　Office Password Remover 是一款可以瞬間破解 Word、Excel和Access 文檔密碼的工具，一般情況下解密過(guò)程不超過(guò)5秒，而且操作簡(jiǎn)單，無(wú)需設(shè)置。但是使用本軟件需要連接到互聯(lián)網(wǎng)，因?yàn)橐蜍浖?wù)器發(fā)送少量的數(shù)據(jù)并解密，不過(guò)本軟件不會(huì)泄露任何個(gè)人隱私，請(qǐng)放心使用。如圖所示：

　　方法二、通過(guò)啟用宏程序來(lái)破解excel文檔

　　如果上述方法破解出現(xiàn)異常，我們采集通過(guò)啟用宏程序的方法進(jìn)行密碼破解，具體操作如下：

　　先新建一個(gè)Excel文檔文件，確保宏可以啟用(菜單的工具--宏---安全性設(shè)置，調(diào)整為“中”)。同時(shí)按Alt和F11，進(jìn)入VBA界面，點(diǎn)菜單上的插入，模塊，在新出來(lái)的窗口粘貼一下代碼：

　　Sub crack()

　　Dim i As Long

　　Dim FileName As String

　　i = 0

　　FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")

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

　　Application.ScreenUpdating = False

　　line2: On Error GoTo line1

　　Workbooks.Open FileName, , True, , i

　　MsgBox "Password is " & i

　　Exit Sub

　　line1: i = i + 1

　　Resume line2

　　Application.ScreenUpdating = True

　　End Sub

　　然后在此界面直接按F5運(yùn)行此宏，選擇文件，(看密碼長(zhǎng)度了)。如果超過(guò)6位數(shù)以上的密碼可能需要的時(shí)間要更長(zhǎng)，這里就需要我們慢慢的等待了。