EXCEL密码保护破解

EXCEL密码保护破解

ID:45097275

大小:15.72 KB

页数:4页

时间:2019-11-09

EXCEL密码保护破解_第1页
EXCEL密码保护破解_第2页
EXCEL密码保护破解_第3页
EXCEL密码保护破解_第4页
资源描述:

《EXCEL密码保护破解》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、EXCEL密码保护破解2010-01-2209:56方法:1打开文件2工具---宏----录制新宏---输入名字如:aa3停止录制(这样得到一个空宏)4工具---宏----宏,选aa,点编辑按钮5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6关闭编辑窗口7工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!代码如下:PublicSubAllInternalPasswords() 'Breaksworksheetandworkbookstructurepasswords.BobMcCormi

2、ck 'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords ' 'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) 'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version1.1.1) 'RevealshashedpasswordsNOToriginalpasswo

3、rds ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "AdaptedfromBobMcCormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" ConstREPBACKAsString=DBLSPACE&"Ple

4、asereportfailure"&_ "tothemicrosoft.public.excel.programmingnewsgroup." ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_ "nowbefreeofallpasswordprotection,somakesureyou:"&_ DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_ DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_ DBLSPACE&"Also,rememberthatthepasswordw

5、as"&_ "putthereforareason.Don'tstuffupcrucialformulas"&_ "ordata."&DBLSPACE&"Accessanduseofsomedata"&_ "maybeanoffense.Ifindoubt,don't." ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_ "sheets,orworkbookstructureorwindows."&AUTHORS&VERSION ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_ "

6、workbookstructureorwindows."&DBLSPACE&_ "Proceedingtounprotectsheets."&AUTHORS&VERSION ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_ "willtakesometime."&DBLSPACE&"Amountoftime"&_ "dependsonhowmanydifferentpasswords,the"&_ "passwords,andyourcomputer'sspecification."&DBLSPACE&_ "Justbepatien

7、t!Makemeacoffee!"&AUTHORS&VERSION ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_ "StructureorWindowsPasswordset."&DBLSPACE&_ "Thepasswordfoundwas:"&DBLSPACE&"$$"&DBLSPACE&_ "Noteitdownforpotentialfutureus

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。