excel密码解除的方法Word格式文档下载.docx
- 文档编号:17009575
- 上传时间:2022-11-27
- 格式:DOCX
- 页数:4
- 大小:16.56KB
excel密码解除的方法Word格式文档下载.docx
《excel密码解除的方法Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《excel密码解除的方法Word格式文档下载.docx(4页珍藏版)》请在冰豆网上搜索。
在宏名处填写一个名字(可随便),然后点击创立,弹出以下窗口:
密码解除步骤5:
将窗口内的内容全选后删除,然后将下面分割线以内的内容开头复制粘贴在上面的窗口内:
从横线下开头复制
------------------------------------------------------------------------------------------
OptionExplicit
PublicSubAllInternalPasswords()
Breaksworksheetandworkbookstructurepasswords.BobMcCormick
probablyoriginatorofbasecodealgorithmmodifiedforcoverage
ofworkbookstructure/windowspasswordsandformultiplepasswords
NormanHarkerandJEMcGimpsey27-Dec-2021(Version1.1)
Modified2021-Apr-04byJEM:
Allmsgstoconstants,and
eliminateoneExitSub(Version1.1.1)
RevealshashedpasswordsNOToriginalpasswords
ConstDBLSPACEAsString=vbNewLinevbNewLine
ConstAUTHORSAsString=DBLSPACEvbNewLine_
AdaptedfromBobMcCormickbasecodeby_
NormanHarkerandJEMcGimpsey
ConstHEADERAsString=AllInternalPasswordsUserMessage
ConstVERSIONAsString=DBLSPACEVersion1.1.12021-Apr-04
ConstREPBACKAsString=DBLSPACEPleasereportfailure_
tothemicrosoft.public.excel.programmingnewsgroup.
ConstALLCLEARAsString=DBLSPACETheworkbookshould_
nowbefreeofallpasswordprotection,somakesureyou:
_
DBLSPACESAVEITNOW!
DBLSPACEandalso_
DBLSPACEBACKUP!
BACKUP!
!
DBLSPACEAlso,rememberthatthepasswordwas_
putthereforareason.Dontstuffupcrucialformulas_
ordata.DBLSPACEAccessanduseofsomedata_
maybeanoffense.Ifindoubt,dont.
ConstMSGNOPWORDS1AsString=Therewerenopasswordson_
sheets,orworkbookstructureorwindows.AUTHORSVERSION
ConstMSGNOPWORDS2AsString=Therewasnoprotectionto_
workbookstructureorwindows.DBLSPACE_
Proceedingtounprotectsheets.AUTHORSVERSION
ConstMSGTAKETIMEAsString=AfterpressingOKbuttonthis_
willtakesometime.DBLSPACEAmountoftime_
dependsonhowmanydifferentpasswords,the_
passwords,andyourcomputersspecification.DBLSPACE_
Justbepatient!
Makemeacoffee!
AUTHORSVERSION
ConstMSGPWORDFOUND1AsString=YouhadaWorksheet_
StructureorWindowsPasswordset.DBLSPACE_
Thepasswordfoundwas:
DBLSPACE$$DBLSPACE_
Noteitdownforpotentialfutureuseinotherworkbooksby_
thesamepersonwhosetthispassword.DBLSPACE_
Nowtocheckandclearotherpasswords.AUTHORSVERSION
ConstMSGPWORDFOUND2AsString=YouhadaWorksheet_
passwordset.DBLSPACEThepasswordfoundwas:
DBLSPACE$$DBLSPACENoteitdownforpotential_
futureuseinotherworkbooksbysamepersonwho_
setthispassword.DBLSPACENowtocheckandclear_
otherpasswords.AUTHORSVERSION
ConstMSGONLYONEAsString=Onlystructure/windows_
protectedwiththepasswordthatwasjustfound._
ALLCLEARAUTHORSVERSIONREPBACK
Dimw1AsWorksheet,w2AsWorksheet
DimiAsInteger,jAsInteger,kAsInteger,lAsInteger
DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger
Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger
DimPWord1AsString
DimShTagAsBoolean,WinTagAsBoolean
Application.ScreenUpdating=False
WithActiveWorkbook
WinTag=.ProtectStructureOr.ProtectWindows
EndWith
ShTag=False
ForEachw1InWorksheets
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfNotShTagAndNotWinTagThen
MsgBoxMSGNOPWORDS1,vbInformation,HEADER
ExitSub
EndIf
MsgBoxMSGTAKETIME,vbInformation,HEADER
IfNotWinTagThen
MsgBoxMSGNOPWORDS2,vbInformation,HEADER
Else
OnErrorResumeNext
Dodummydoloop
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)
If.ProtectStructure=FalseAnd_
.ProtectWindows=FalseThen
PWord1=Chr(i)Chr(j)Chr(k)Chr(l)_
Chr(m)Chr(i1)Chr(i2)Chr(i3)_
Chr(i4)Chr(i5)Chr(i6)Chr(n)
MsgBoxApplication.Substitute(MSGPWORDFOUND1,_
$$,PWord1),vbInformation,HEADER
ExitDoBypassallfor...nexts
Next:
Next
LoopUntilTrue
OnErrorGoTo0
IfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
AttemptclearancewithPWord1
w1.UnprotectPWord1
ChecksforallclearShTagtriggeredto1ifnot.
IfShTagThen
Withw1
If.ProtectContentsThen
DoDummydoloop
Chr(l)Chr(m)Chr(i1)Chr(i2)Chr(i3)_
IfNot.ProtectContentsThen
MsgBoxApplication.Substitute(MSGPWORDFOUND2,_
leveragefindingPwordbytryingonothersheets
ForEachw2InWorksheets
w2.UnprotectPWord1
Nextw2
MsgBoxALLCLEARAUTHORSVERSIONREPBACK,vbInformation,HEADER
EndSub
-----------------------------------------------------------------------------------------
密码解除步骤6:
复制到横线以上
密码解除步骤7:
得到状况如下列图表示
密码解除步骤8:
关闭编辑窗口;
密码解除步骤9:
依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
密码解除步骤10:
等一会,就会出现以下对话框:
这就是Excel密码对应的原始密码(此密码和原先设置的密码都能翻开此文档。
假如是别人的文档,你又想复原密码设置,就可以用此密码进展爱护,他就能用他设置的密码翻开,你可以试试,很好玩的。
字母肯定要大写):
密码解除步骤11:
再点击确定。
Excel的原始密码就被去除了!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excel 密码 解除 方法
![提示](https://static.bdocx.com/images/bang_tan.gif)