加入收藏 | 网站地图 | | RSS | WAP
你好,游客 登录 注册 搜索

破解Excel 2003加密文件

[日期:2010-08-31] 作者: 来源: [字体: ]
我们有时候会有一些秘密文件,密码设置的有不一样,时间久了就忘记了,有什么办法或者软件可以破解呢?下面为大家介一个简单的密码破解方法: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 这个文件。

关键词:破解  加密文件 

收藏 推荐 打印 | 录入:987950121 | 阅读:
本文评论   查看全部评论 (2)
表情: 姓名: 字数
点评:
       
评论声明
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事/刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
第 2 楼
* 匿名 发表于 2016/12/24 17:55:27
http://www.blue1000.com/bkhtml/c118/2008-11/59123.htm 母亲节感言 http://www.135995.com/show/19654.html 2017年教师节感言 http://www.135995.com/show/19650.html
第 1 楼
* 匿名 发表于 2010/10/13 16:11:10
代码真长