windows10系统下怎样破解excel密码
发布网友
发布时间：2023-07-12 15:04
共1个回答
热心网友
时间：2023-09-21 15:21
windows10系统下怎样破解excel密码？一位用户反馈自己在win10系统中遇到了无法打开Excel文档的情况，提示需要输入密码才能查看，感觉非常烦恼。接下来，小编将给大家详细介绍win10破解excel密码的方法。
推荐：win10系统下载中文
步骤如下：
1、打开加密的Excel，然后用快捷命令Alt+F8打开宏命令窗口，如图所示：
2、在宏名一栏中输入宏的名字随意健入，如图：
3、输入完宏名后创建的按钮就亮了点击创建我们就看到了新界面，如图：
4、将编辑框内的Subknife()EndSub删除将下列代码复制上去：
OptionExplicit
PublicSubAllInternalPasswords()
Breaksworksheetandworkbookstructurepasswords.BobMcCormick
probablyoriginatorofbasecodealgorithmmodifiedforcoverage
ofworkbookstructure/windowspasswordsandformultiplepasswords
NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)
Modified2003-Apr-04byJEM:Allmsgstoconstants,and
eliminateoneExitSub(Version1.1.1)
RevealshashedpasswordsNOToriginalpasswords
ConstDBLSPACEAsString=vbNewLinevbNewLine
ConstAUTHORSAsString=DBLSPACEvbNewLine_
AdaptedfromBobMcCormickbasecodeby_
NormanHarkerandJEMcGimpsey
ConstHEADERAsString=AllInternalPasswordsUserMessage
ConstVERSIONAsString=DBLSPACEVersion1.1.12003-Apr-04
ConstREPBACKAsString=DBLSPACEPleasereportfailure_
tothemicrosoft.public.excel.programmingnewsgroup.
ConstALLCLEARAsString=DBLSPACETheworkbookshould_
nowbefreeofallpasswordprotection,somakesureyou:_
DBLSPACESAVEITNOW!DBLSPACEandalso_
DBLSPACEBACKUP!,BACKUP!!,BACKUP!!!_
DBLSPACEAlso,rememberthatthepasswordwas_
putthereforareason.Dontstuffupcrucialformulas_
ordata.DBLSPACEAccessanseofsomedata_
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
Dommydoloop
Fori=65To66:Forj=65To66:Fork=65To66
Forl=65To66:Form=65To66:Fori1=65To66
Fori2=65To66:Fori3=65To66:Fori4=65To66
Fori5=65To66:Fori6=65To66:Forn=32To126
WithActiveWorkbook
.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
EndIf
EndWith
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
LoopUntilTrue
OnErrorGoTo0
EndIf
IfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
ExitSub
EndIf
OnErrorResumeNext
ForEachw1InWorksheets
AttemptclearancewithPWord1
w1.UnprotectPWord1
Nextw1
OnErrorGoTo0
ShTag=False
ForEachw1InWorksheets
ChecksforallclearShTagtriggeredto1ifnot.
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfShTagThen
ForEachw1InWorksheets
Withw1
If.ProtectContentsThen
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)
IfNot.ProtectContentsThen
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(MSGPWORDFOUND2,_
$$,PWord1),vbInformation,HEADER
leveragefindingPwordbytryingonothersheets
ForEachw2InWorksheets
w2.UnprotectPWord1
Nextw2
ExitDoBypassallfor...nexts
EndIf
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
LoopUntilTrue
OnErrorGoTo0
EndIf
EndWith
Nextw1
EndIf
MsgBoxALLCLEARAUTHORSVERSIONREPBACK,vbInformation,HEADER
EndSub
5、关闭【宏窗口】回到Excel，按下ALT+F8组合键重新打开【宏命令窗口】，如图所示：
6、你会发现你前面输入的宏名变成了AllInternalPasswords点击【执行】会出现全英文的提示框，一直点击【确定】即可；
7、一直点确定直到不在出现对话框为止。
等一段之系统会再次跳出对话框再点确定保护就破解成功，重新打开Excel表格即无需输入密码。是不是非常简单呢？若是你也有同样需求的话，不妨参考本教程进行操作！
