Excel忘记密码怎么办？VAB破解方法

第一步：新打开一个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

注意事项：在测试的时候尽量关掉其他程序，提高速度。