当前位置:知识问问>百科知识>excel密码怎么破解?

excel密码怎么破解?

2023-12-27 09:58:48 编辑:join 浏览量:531

excel密码怎么破解?

操作方法:

01

打开excel工作表。

02

然后在Excel表中找到盯铅【视图】。

03

点开搭简【宏】。

04

然后选择【录凯枝好制宏】。

05

接着会弹出一个窗口,点击【确定】。

06

在此点开【宏】,点击【停止录制】。

07

然后再点击【宏】,弹出窗口点击【编辑】。

08

然后点击【模板1】,并清空右边红框里的代码,如下图。

09

然后把破解代码复制粘贴进入空白处(破解代码小编将在文章最底部分享给大家)。

10

然后在打开【查看宏】,点击执行破解代码。

11

会弹出一个框,是英文的,看不懂没关系,点击确定,解密需要一段时间。

12

破解代码:

PublicSubAllInternalPasswords() 

'Breaksworksheetandworkbookstructurepasswords.BobMcCormick 

'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 

'ofworkbookstructure/windowspasswordsandformultiplepasswords 

'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) 

'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 

'eliminateoneExitSub(Version1.1.1) 

'RevealshashedpasswordsNOToriginalpasswords 

ConstDBLSPACEAsString=vbNewLine&vbNewLine 

ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ 

"AdaptedfromBobMcCormickbasecodeby"&_ 

"NormanHarkerandJEMcGimpsey" 

ConstHEADERAsString="AllInternalPasswordsUserMessage" 

ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" 

ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_ 

"tothemicrosoft.public.excel.programmingnewsgroup." 

ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_ 

"nowbefreeofallpasswordprotection,somakesureyou:"&_ 

DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_ 

DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_ 

DBLSPACE&"Also,rememberthatthepasswordwas"&_ 

"putthereforareason.Don'tstuffupcrucialformulas"&_ 

"ordata."&DBLSPACE&"Accessanduseofsomedata"&_ 

"maybeanoffense.Ifindoubt,don't." 

ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_ 

"sheets,orworkbookstructureorwindows."&AUTHORS&VERSION 

ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_ 

"workbookstructureorwindows."&DBLSPACE&_ 

"Proceedingtounprotectsheets."&AUTHORS&VERSION 

ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_ 

"willtakesometime."&DBLSPACE&"Amountoftime"&_ 

"dependsonhowmanydifferentpasswords,the"&_ 

"passwords,andyourcomputer'sspecification."&DBLSPACE&_ 

"Justbepatient!Makemeacoffee!"&AUTHORS&VERSION 

ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_ 

"StructureorWindowsPasswordset."&DBLSPACE&_ 

"Thepasswordfoundwas:"&DBLSPACE&""&DBLSPACE&_ 

"Noteitdownforpotentialfutureuseinotherworkbooksby"&_ 

"thesamepersonwhosetthispassword."&DBLSPACE&_ 

"Nowtocheckandclearotherpasswords."&AUTHORS&VERSION 

ConstMSGPWORDFOUND2AsString="YouhadaWorksheet"&_ 

"passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_ 

DBLSPACE&""&DBLSPACE&"Noteitdownforpotential"&_ 

"futureuseinotherworkbooksbysamepersonwho"&_ 

"setthispassword."&DBLSPACE&"Nowtocheckandclear"&_ 

"otherpasswords."&AUTHORS&VERSION 

ConstMSGONLYONEAsString="Onlystructure/windows"&_ 

"protectedwiththepasswordthatwasjustfound."&_ 

ALLCLEAR&AUTHORS&VERSION&REPBACK 

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&nbs

标签:excel

版权声明:文章由 知识问问 整理收集,来源于互联网或者用户投稿,如有侵权,请联系我们,我们会立即处理。如转载请保留本文链接:https://www.zhshwenwen.com/article/330378.html
热门文章