*** 作方法:
01
打开excel工作表。
02
然后在Excel表中找到盯铅【视图】。
03
点开搭简【宏】。
04
然后选择【录凯枝好制宏】。
05
接着会d出一个窗口,点击【确定】。
06
在此点开【宏】,点击【停止录制】。
07
然后再点击【宏】,d出窗口点击【编辑】。
08
然后点击【模板1】,并清空右边红框里的代码,如下图。
09
然后把破解代码复制粘贴进入空白处(破解代码小编将在文章最底部分享给大家)。
10
然后在打开【查看宏】,点击执行破解代码。
11
会d出一个框,是英文的,看不懂没关系,点击确定,解密需要一段时间。
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 中因为录入了过多的重要数据进而需要设置密码进行保护,但过了一段时间却忘记了打开密码,这个时候就需要进行破解打开密码的 方法 了。下面是由我分享的excel表格打开密码破解的方法,以供大家阅读和学习。
excel表格打开密码破滚老解的方法:
破解打开密码步骤1:先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)创建一个“2003.xls”的普通方式加密Excel文档,然后用Office Password Remover这个在线破解工具来破解,1,2,3,3秒之后,就中备仔生产一个已卖汪经被成功破解的新Excel文档——2003(DEMO).xls 。破解一个普通加密方式的Excel文档,只需3秒钟!如果你真的不信,可以自己测试一下!
破解打开密码步骤2:当然,这个3秒破解Excel文档密码是有条件的。第一个条件:Excel文档保存格式必须为古老的“.XLS ”格式(同理,Word文档保存为“.DOC”格式,PPT文档为“.PPT格式”),第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。
注:要想得到完全的破解文件,需要付费,免费破解的Excel文档只能看到前几行。
破解打开密码步骤3:如果不付费就破解不了,那就大错特错。要知道,在一台普通配置的电脑上,Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码,你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。
破解打开密码步骤4:WPS表格(用途相当于Excel)虽然提供多种加密方式,但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法,否则不可能做到无论你设置什么密码,都会被瞬间打开!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)