破解Excel工作表别人设置的保护密码

有些工作人员需要设置支付保护密码，以保护自己的信息不被其他人更改。只有知道密码的人才能更改它。但有时又迫切需要向其中添加信息。你需要破解密码。

他人设置的密码只能查看，不能编辑。

点击取消支付保护，需要密码

我们点击查看数字

或者点击查看代码

粘贴下面的代码

publicSubAllInternalPasswords()

'折线表和设计工作簿。BobMcCormick

'也许底层代码原理的性质已经为了服务而改变了

'用于多个密码的Windows密码/工作簿格式

'

'NormanHarkelandJEMcGimpsey2002年12月27日（版本11）

'由JEM于2003年4月4日修改：Allmsgtoconstants，无

'removeExitSub(版本111)

'用原始密码揭示隐藏密码

ConstDBLSPACEAsStringvbNewLinevbNewLine

ConstAUTHORSAsStringDBLSPACEvbNewLine

'由BobMcCormickbasecodeby修改'

“诺曼·哈克兰·JEMc·金普西”

ConstHEADERAsString'AllInternalPasswordsUserMessage'

ConstVERSIONsStringDBLSPACE'Version1112003-Apr-04'

ConstREPBACKAsStringDBLSPACE'请报告失败'

“到microsoftpublicexcelprogrammingnewsgroup。”

ConstALLCLEARasStringDBLSPACE'工作簿应该'

“现在让我自由落体密码保护，所以请确保你：”

DBLSPACE'立即保存！'DBLSPACE'andalso'

DBLSPACE'保存！，保存！！，保存！！！'

DBLSPACE'另外，请注意密码是'

“保留它是有原因的”。

'ordata'DBLSPACE'访问和使用一些数据'

“如果有疑问，就不要这样做。”

ConstMSGNOPWORDS1AsString'没有密码'

“工作表或工作簿或窗口的结构。”WRITER

ConstMSGNOPWORDS2AsString'没有保护'

'Windows工作簿'DBLSPACE

“继续取消保护。”作者版本

ConstMSGTAKETIMEAsString'点击此按钮后'

'ittakesometime'DBLSPACE'时间量'

“取决于有多少个不同的密码，”

'密码和您的计算机的标识。'DBLSPACE

“要有耐心，马克我咖啡！'作家

ConstMSGPWORDFOUND1AsString'YouhadaWorksheet'

'结构或Windows密码集。'DBLSPACE

'密码来自：'DBLSPACE'$$'DBLSPACE

“记住将来使用其他工作簿”

“设置此密码的人是同一个人。”DBLSPACE

“现在检查并删除密码。”AUTHORSVERSION

ConstMSGPWORDFOUND2AsString'YouhadaWorksheet'

'密码设置。'DBLSPACE'密码可用：'

DBLSPACE'$$'DBLSPACE'记下潜力'

“未来与同一个人一起使用其他工作簿”

'输入此密码。'DBLSPACE'现在检查并清除'

“其他密码。”作者版本

ConstMSGONLYONEAsString'仅结构/窗口'

“受仅可用的密码保护。”

ALLCLEAR作者版本回复

Dimw1AsWorksheet,w2AsWorksheet

DimiAsInteger,jAsInteger,kaAsInteger,laAsInteger

DimmAsInteger、nAsInteger、i1AsInteger、i2AsInteger

Dim3AsInteger、i4AsInteger、i5AsInteger、i6AsInteger

DimPFord1AsString

DimShTagAsBoolean、WinTagAsBoolean

ApplicationScreenUpdatingFalse

使用活动工作簿

WinTagProtectStructure或ProtectWindows

结束方式

ShTagFalse

ForEachw1In工作表

ShTagShTagOrw1ProtectContents

下一页1

IfNotShTag和NotWinTagThen

MsgBoxMSGNOPWORDS1，vb描述，标头

退出子系统

最后点赞

MsgBoxMSGTAKETIME，vb详细信息，标头

如果没有赢得标签则

MsgBoxMSGNOPWORDS2，vb详细信息，标头

其他

一个错误继续下一个

杜米多循环

Fori65To66:Forj65To66:Fork65To66

Forl65To66:Form65To66:Fori165To66

Fori265To66:Fori365To66:Fori465To66

Fori565To66:Fori665To66:Forn32To126

使用活动工作簿

取消保护Chr(i)Chr(j)Chr(k)

Chr(l)Chr(m)Chr(i1)Chr(i2)

Chr(i3)Chr(i4)Chr(i5)Chr(i6)Chr(n)

LikeProtect结构FalseNo

ProtectWindowsFalseThen

PWord1Chr(i)Chr(j)Chr(k)Chr(l)

Chr(m)Chr(i1)Chr(i2)Chr(i3)

Chr(i4)Chr(i5)Chr(i6)Chr(n)

MsgBoxApplicationSubstitute(MSGPWORDFOUND1,

'$$',PWord1),vbDetails,HEADER

退出绕过所有下一步

最后点赞

结束方式

下一篇：下一篇：下一篇：下一篇：下一篇：下一篇

下一篇：下一篇：下一篇：下一篇：下一篇：下一篇

循环直到真

一个错误转到0

最后点赞

IfWinTagAndNotShTagThen

MsgBoxMSGONLYONE，vb详细信息，标头

退出子系统

最后点赞

一个错误继续下一个

ForEachw1In工作表

'PWord1的权限测试

w1不保护PWord1

下一页1

一个错误转到0

ShTagFalse

ForEachw1In工作表

'检查所有清除ShTag是否已触发至1（如果没有）。

ShTagShTagOrw1ProtectContents

下一页1

如果ShTag那么

ForEachw1In工作表

与1一起

LikeProtectContentThen

一个错误继续下一个

杜米多循环

Fori65To66:Forj65To66:Fork65To66

Forl65To66:Form65To66:Fori165To66

Fori265To66:Fori365To66:Fori465To66

Fori565To66:Fori665To66:Forn32To126

取消保护Chr(i)Chr(j)Chr(k)

Chr(l)Chr(m)Chr(i1)Chr(i2)Chr(i3)

Chr(i4)Chr(i5)Chr(i6)Chr(n)

IfNotProtectContentsThen

PWord1Chr(i)Chr(j)Chr(k)Chr(l)

Chr(m)Chr(i1)Chr(i2)Chr(i3)

Chr(i4)Chr(i5)Chr(i6)Chr(n)

MsgBoxApplicationSubstitute(MSGPWORDFOUND2,

'$$',PWord1),vbDetails,HEADER

'通过尝试其他工具来寻找密码

ForEachw2In工作表

w2不保护PWord1

下一页2

退出绕过所有下一步

最后点赞

下一篇：下一篇：下一篇：下一篇：下一篇：下一篇

下一篇：下一篇：下一篇：下一篇：下一篇：下一篇

循环直到真

一个错误转到0

最后点赞

结束方式

下一页1

最后点赞

MsgBoxALLCLEARAUTHORVERSIONREPBACK,vbDetails,HEADER

结束子

将此代码粘贴到代码框中。等待一到两分钟。在此会话期间将出现几个对话框。

操作过程中会出现几个对话框。

关闭代码窗口。保存的时候会出现这样的提示。

成功

对你我他来说都很简单

如果您喜欢，请保存以供将来使用。