Excel 2003加密文件破解方法

     我們有時候會有一些秘密文件，密碼設置的有不一樣，時間久了就忘記了，有什麼辦法或者軟件可以破解呢？下面為大家介一個簡單的密碼破解方法：HE的，6位 以下看密碼難以度，6位以上一本無望。如果Excel文件的打開密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開（關掉所有程序，為了速度）：

      新開一Excel，同時按Alt和F11，進入VBA界面，點菜單上的插入，模塊，在新出來的窗口粘貼一下代碼：

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運行此宏，選擇文件，等啊等（看密碼長度了）到網上去下載Excel Cracker.rar 這個文件。