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

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

步骤不多，破解时需用时几分钟，需耐心等候 ··· 最好使用VBA 工程密码破解方法

新建一个excel文档，然后打开 同时按Alt和F11，进入VBA界面 同时按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 " &