admin管理员组

文章数量:1536656

2024年5月15日发(作者:)

各位朋友不知道有没有碰到过这样的情况,当你要打开一个EXECL工作表时,突然发

现密码忘记了,唯一可做的也许是搞个破解软件来破一下,但针对打开后的工作表保护,

一般就很难有效了,复制虽是一种办法,但不少数据(特别是公式较多着),可能就要乱套

了,入户才能破解这一类密码呢?不久前在网上发现此精华,与大家共享一下!

利用宏运行方式破解,真的很有效,运行中可能电脑有两分钟无反应,千万不要以为

死机了,等等吧!

步骤方法如下:

1. 打开文件

2. 工具---宏---录制新宏---输入名字如:aa

3. 停止录制(这样得到一个空宏)

4. 工具---宏----宏,选aa,点编辑按钮

5. 删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)

6. 关闭编辑窗口

7. 工具---宏----宏。选AllInternalPasswords,运行,确定两次,等两分钟,再确定,

OK,没有密码了!!

宏内容如下:

Public Sub AllInternalPasswords()

'Breaks worksheet and workbook structure McCormick

'probably originator of base code algorithm modified for coverage

'of workbook structure / windows passwords and multiple passwords

'

'Norman Harker and JE McGimpsey 27-Dec-2002(Version 1.1)

'Modified 2003-Apr-04 by JEM:All msgs to constants,and

'eliminate one Exit Sub (Version 1.1)

'Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted form Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

本文标签: 工作破解密码运行可能