破解excel工作表密码及单元格保护密码.docVIP

破解excel工作表密码?和?单元格保护密码 (2010-06-19 23:09:18) 转载▼ 标签： 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！??? 1、打开您需要破解保护密码的Excel文件；??? 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；??? 3、停止录制(这样得到一个空宏)；??? 4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；??? 5、删除窗口中的所有字符(只有几个),替换为下面的内容；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. AUTHORS VERSION?Const MSGTAKETIME As String = After pressing OK button t