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

2024-06-24 61

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

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

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

我们点击查看数字

或者点击查看代码

粘贴下面的代码

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

结束子

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

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

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

成功

对你我他来说都很简单

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

本站文章均由用户上传或转载而来,该文章内容本站无法检测是否存在侵权,如果本文存在侵权,请联系邮箱:2287318951@qq.com告知,本站在7天内对其进行处理。

相关推荐