工作表密码忘记了.docVIP

求助：工作表密码忘记了 本人去年制作了一张EXCLE工作表。为防止别人乱动公式设置了保护工作表密码。现在发现表内公式需要修改，但我已经忘记了保护密码。请高人帮忙支个招 谢谢了 回复 板凳 头疼 的帖子 EXCEL工作表保护密码破解 方法:1\打开文件2\工具---宏----录制新宏---输入名字如:HACKER3\停止录制(这样得到一个空宏)4\工具---宏----宏,选HACKER,点编辑按钮5\删除窗口中的所有字符(只有几个),替换为下面的内容复制吧)6\关闭编辑窗口7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!! 本文来自伯龙在线客服平台(中山地区管家婆软件授权4S专卖店)，原文地址：http://www.bolong.ccPublic 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 lease 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 _ roceeding to unprotect sheets. AUTHORS VERSION Const MSGTAKETIME As String = After pressing OK button this _ will take some time. DBLSPACE