新開一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開始進行破解，這個破解速度是看你的密碼對的長度、復雜程度、電腦配置。小編測試的一個【12】，是秒破。

?

總結

以上是生活随笔為你收集整理的【WIN】超简单的Excel密码破解的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。