(资料图片)

1、如果Excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开： 新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码： Sub crack() Dim i As Long Dim FileName As String Application.ScreenUpdating = False i = 1 FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", ,"VBA破解") FileName = Right(FileName, Len(FileName) - InStrRev(FileName,"")) line2: On Error GoTo line1 Do While True ***.Open FileName, , , , i MsgBox"Password is"& i Exit Sub Loop line1: i = i + 1 Resume line2 Application.ScreenUpdating = True End Sub 然后直接在此界面下按F5运行此宏 如果有字母，稍微复杂些，道理是类似的。

2、太长的密码，基本解不开了。

3、 若果还有读写密码，且与打开密码一样，将***.Open FileName, , , , i 改为***.Open FileName, , , , i, i。

本文就为大家分享到这里，希望小伙伴们会喜欢。