Excel文件加密后忘记密码破解方法

最好使用VBA 工程密码破解方法

新建一个excel文档，然后打开，同时按Alt和F11，进入VBA界面

点击菜单上的插入，模块

在新的窗口粘贴以下代码：

 Sub crack()

 Dim i As Long

 Dim FileName As String

 i = 

 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 + 

 Resume line2

 Application.ScreenUpdating = True

 End Sub

点击运行

在弹出的对话框中选择需要破解的Excel文件，点击打开

等待破解即可