excel密码解除的方法Word格式文档下载.docx

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的原始密码就被去除了!