得力打卡机破解Excel工作表保护密码-得力表格密码.docx

文档介绍：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 )
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version )
' 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 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "no