EXCEL密码去除.docVIP

EXCEL密码去除（工作表、工作薄密码保护破解） 办公秘笈 2008-12-15 13:25:07 阅读2554 评论10 ??字号：大中小?订阅 各位朋友不知有沒有碰到过这样的情况，当要打幵一个EXCEL工作表时，突然发现密碼忘记了，唯一可做的也许是搞个破解软件来破一下，但针对打幵后的工作表保护，一般就很难有效了，复制虽是一种方法，但不少数据（特別是公式较多者），可能就要乱套了，如何才能破解这一类密码呢？不久前在网上发现此精华，与大家共享一下！ 利用宏运行方式破解，真的很有效，运行中可能电脑会有两分钟无反应，千萬不要以为死机了哦，等等吧！ 步骤方法如下:1、打开文件2、工具---宏----录制新宏---输入名字如:aa3、停止录制(这样得到一个空宏)4、工具---宏----宏,选aa,点编辑按钮5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6、关闭编辑窗口7、工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!宏内容如下：Public Sub AllInternalPasswords()  Breaks worksheet and workbook structure passwords. Bob McCormick  probably originator of base code algorithm modified for coverage  of workbook structure / windows passwords and for 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.1)  Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine vbNewLine Const AUTHORS As String = DBLSPACE vbNewLine _ Adapted from Bob McCormick base code by _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE Version 1.1.1 2003-Apr-04 Const REPBACK As String = DBLSPACE Please report failure _ to the gramming newsgroup. Const ALLCLEAR As String = DBLSPACE The workbook should _ now be free of all password protection, so make sure you: _ DBLSPACE SAVE IT NOW! DBLSPACE and also _ DBLSPACE BACKUP!, BACKUP!!, BACKUP!!! _ DBLSPACE Also, remember that the password was _ put there for a reason. Dont stuff up crucial formulas _ or data. DBLSPACE Access and use of some data _ may be an offense. If in doubt, dont. Const MSGNOPWORDS1 As String = There were no passwords on _ sheets, or workbook structure or windows. AUTHORS VERSION Const MSGNOPWORDS2 As String = There was no protection to _ workbook structure or windows. DBLSPACE _ Proceeding to unprotect sheets. AUT