返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

Excel 2003加密文件解决方法

时间:2018-03-26 21:55来源:Office教程学习网 www.office68.com编辑:麦田守望者

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

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):excel excel2013 excel2010 excel2007 excel2003 excel技巧 excel教程 excel实例教程
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣