After the Excel file encryption forgotten password cracking method

The best use VBA project password cracking method

Create an excel document, then open, press Alt and F11 , enter the VBA interface

Click on the Insert menu, module

In the new window paste the following code:

 1 Sub crack()
 2  
 3 Dim i As Long
 4  
 5 Dim FileName As String
 6  
 7 i = 0
 8  
 9 FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
10  
11 FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
12  
13 Application.ScreenUpdating = False
14  
15 line2: On Error GoTo line1
16  
17 Workbooks.Open FileName, , True, , i
18  
19 MsgBox "Password is " & i
20  
21 Exit Sub
22  
23 line1: i = i + 1
24  
25 Resume line2
26  
27 Application.ScreenUpdating = True
28  
29 End Sub

点击运行

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

等待破解即可