新開一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 ***.open FileName, , True, , i MsgBox "Password is " & i Exit Sub line1: i = i + 1 Resume line2 Application.ScreenUpdating = True End Sub
然后在此界面直接按F5運行此宏,選擇文件,等待即可(看密碼長晌行度了)。