Excel 2003加密文件解决方法
- 2023-02-10
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 145 次浏览
我们有时候会有一些秘密文件，密码设置的有不一样，时间久了就忘记了，有什么办法或者软件可以解决呢？下面为大家介一个简单的密码解决方法：HE的，6位以下看密码难以度，6位以上一本无望。如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：
新开一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
然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）到网上去下载Excel Cracker.rar 这个文件。
