Excel中如何破解“撤销工作表格保护密码”并获取原始密码.docVIP

. Excel 中如何破解 “撤销工作表保护密码 ”并获取原始密码 一、 保护工作表的方法 1、 全选定工作表 右击 [设置单元格格式 ] 找到 [保护 ]将 [锁定 ]和[隐藏 ]两个的勾去掉； 2、将要保护的工作表单元格选定右击 [设置单元格格式 ] 找到 [保护 ]将[锁定 ] 和[隐藏 ]两个的勾打上； 3、 点菜单栏的 [工具 ]中的 [保护 ]里的 [保护工作表 ]将[保护工作表及锁定 的单元内容 ]打上勾，下选允许此工作表的所有用户 [选定未锁定的单元格 ]打上勾 二、 Excel 工作表保护密码破解方法 1、打开您需要破解保护密码的 Excel 文件； 2、依次点击菜单栏上的工具 --- 宏 ---- 录制新宏，输入宏名字如 :aa； 3、停止录制 (这样得到一个空宏 )； 4、依次点击菜单栏上的工具 --- 宏 ---- 宏 ,选 aa,点编辑按钮； 5、删除窗口中的所有字符 (只有几个 ),替换为下面的内容；从横线下开始复制 ------------------------------------------------------------------------------------------ Option Explicit 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 _ Word 文档 . 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