EXCEL忘记密码怎么办EXCEL工作表怎么清除密码Word文档下载推荐.docx
- 文档编号:20003039
- 上传时间:2023-01-14
- 格式:DOCX
- 页数:7
- 大小:96.71KB
EXCEL忘记密码怎么办EXCEL工作表怎么清除密码Word文档下载推荐.docx
《EXCEL忘记密码怎么办EXCEL工作表怎么清除密码Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《EXCEL忘记密码怎么办EXCEL工作表怎么清除密码Word文档下载推荐.docx(7页珍藏版)》请在冰豆网上搜索。
2.点击运行“!
工作保护密码破解”这个宏
3.9
9、运行“!
工作保护密码破解”这个宏后,
如下图示意就可以解除工作表的密码保护了
4.10
(这个图,如果工作表中有多组不同密码,
每解开一组,就会提示一次,也就说可能会出现几次)
5.11
工作表保护密码破解(代码)
=========请复制以下内容=============
PublicSub工作表保护密码破解()
ConstDBLSPACEAsString=vbNewLine&
vbNewLine
ConstAUTHORSAsString=DBLSPACE&
vbNewLine&
_
"
作者:
McCormickJEMcGimpsey"
ConstHEADERAsString="
工作表保护密码破解"
ConstVERSIONAsString=DBLSPACE&
版本"
ConstREPBACKAsString=DBLSPACE&
ConstZHENGLIAsString=DBLSPACE&
hfhzi3—戊冥整理"
ConstALLCLEARAsString=DBLSPACE&
该工作簿中的工作表密码保护已全部解除!
!
&
DBLSPACE&
请记得另保存"
注意:
不要用在不当地方,要尊重他人的劳动成果!
ConstMSGNOPWORDS1AsString="
该文件工作表中没有加密"
ConstMSGNOPWORDS2AsString="
该文件工作表中没有加密2"
ConstMSGTAKETIMEAsString="
解密需花费一定时间,请耐心等候!
按确定开始破解!
ConstMSGPWORDFOUND1AsString="
密码重新组合为:
$$"
如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
ConstMSGPWORDFOUND2AsString="
如果该文件工作表有不同密码,将搜索下一组密码并解除"
ConstMSGONLYONEAsString="
确保为唯一的"
Dimw1AsWorksheet,w2AsWorksheet
DimiAsInteger,jAsInteger,kAsInteger,lAsInteger
DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger
Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger
DimPWord1AsString
DimShTagAsBoolean,WinTagAsBoolean
=False
WithActiveWorkbook
WinTag=.
EndWith
ShTag=False
ForEachw1InWorksheets
ShTag=
Nextw1
IfNotShTagAndNotWinTagThen
MsgBoxMSGNOPWORDS1,vbInformation,HEADER
ExitSub
EndIf
MsgBoxMSGTAKETIME,vbInformation,HEADER
IfNotWinTagThen
Else
OnErrorResumeNext
Do'
dummydoloop
Fori=65To66:
Forj=65To66:
Fork=65To66
Forl=65To66:
Form=65To66:
Fori1=65To66
Fori2=65To66:
Fori3=65To66:
Fori4=65To66
Fori5=65To66:
Fori6=65To66:
Forn=32To126
.UnprotectChr(i)&
Chr(j)&
Chr(k)&
Chr(l)&
Chr(m)&
Chr(i1)&
Chr(i2)&
Chr(i3)&
Chr(i4)&
Chr(i5)&
Chr(i6)&
Chr(n)
=FalseAnd_
.ProtectWindows=FalseThen
PWord1=Chr(i)&
(MSGPWORDFOUND1,_
PWord1),vbInformation,HEADER
ExitDo'
Bypassallfor...nexts
Next:
Next
LoopUntilTrue
OnErrorGoTo0
IfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
'
AttemptclearancewithPWord1
ChecksforallclearShTagtriggeredto1ifnot.
IfShTagThen
Withw1
Dummydoloop
(MSGPWORDFOUND2,_
leveragefindingPwordbytryingonothersheets
ForEachw2InWorksheets
Nextw2
MsgBoxALLCLEAR&
AUTHORS&
VERSION&
REPBACK&
ZHENGLI,vbInformation,HEADER
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- EXCEL 忘记 密码 怎么办 工作 怎么 清除