2024年3月28日发(作者：)

[分享] Excel—“撤销工作表保护密码”的破解并获取原始密码

在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，

在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修

改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？

有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎

么办？您只要按照以下步骤操作，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"