轻松搭建网盘系统,实现文件共享与安全存储的完美结合
351
2022-12-02
Excel 2003加密文件解决方法
我们有时候会有一些秘密文件,密码设置的有不一样,时间久了就忘记了,有什么办法或者软件可以解决呢?下面为大家介一个简单的密码解决方法: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 这个文件。
版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。