豪仕知识网--知识就是力量！

微信
手机版
生活常识
首页 > 科技数码正文

Excel,excellen

作者 :东方不败 2024-01-01 20:27:22 围观 : 次 评论

Excel,excellen

豪士君测试所用平台

Excel，一起来看看吧，希望能帮助到您，更多请关注豪仕知识网。

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

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

◐◐◐◐●☛█▼▲豪仕知识网███████http://www.haOZ.net▼▲▼▲▼▲▼▲▼●●●●●●●▼▲▼▲▼▲

以上就是Excel的相关内容分享，字数约1723字，希望这对大家有所帮助！豪仕知识网往后会继续推荐Excel相关内容。

HTTP://WWW.haoz.net◐◐◐◐◐◐◐◐◐◐◐◐◐◐◐◐豪仕知识网
标签 Excel   excellen
上一篇：v2099a是什么型号|v2059a是什么手机型号 下一篇：安装后的软件不在桌面显示怎么办|软件安装以后不在桌面

相关文章

推荐文章
人性的真相：你对别人的好，根本不重要

人性的真相：你对别人的好，根本不重要

不懂复盘，你只会“越忙越穷、越穷越忙”

不懂复盘，你只会“越忙越穷、越穷越忙”

热门浏览
网站分类
标签列表