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 這個檔案。