如果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運行此宏,選擇文件,等啊等(看密碼長度了)