欢迎来到天天文库
浏览记录
ID:38492012
大小:318.90 KB
页数:8页
时间:2019-06-13
《如何破解excel工作表保护密码忘记密码怎么办》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、如何破解EXCEL工作表保护密码忘记密码怎么办1.新建一个EXCEL工作表,而后点击另存为,讲表格保存为启用宏的工作表2.一次点击开发工具---录制新宏,在弹出的对话框内修改宏名称而后确定3.依次点击开发工具----停止录制宏,宏录制完成1.依次点击开发工具,---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面2.在VBA界面,全选里面的代码,而后删除,讲里面的代码全部删除完1.代码复制到VBA编辑窗口内PublicSubAllInternalPasswords() 'Breaksworksheetandworkbookstructurepasswords.
2、BobMcCormick 'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords ' 'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) 'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version1.1.1) 'Revealshashedpasswords
3、NOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "AdaptedfromBobMcCormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" ConstREPBA
4、CKAsString=DBLSPACE&"Pleasereportfailure"&_ "tothemicrosoft.public.excel.programmingnewsgroup." ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_ "nowbefreeofallpasswordprotection,somakesureyou:"&_ DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_ DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_ DBLSPACE
5、&"Also,rememberthatthepasswordwas"&_ "putthereforareason.Don'tstuffupcrucialformulas"&_ "ordata."&DBLSPACE&"Accessanduseofsomedata"&_ "maybeanoffense.Ifindoubt,don't." ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_ "sheets,orworkbookstructureorwindows."&AUTHORS&VERSION ConstMSGNOPWORDS
6、2AsString="Therewasnoprotectionto"&_ "workbookstructureorwindows."&DBLSPACE&_ "Proceedingtounprotectsheets."&AUTHORS&VERSION ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_ "willtakesometime."&DBLSPACE&"Amountoftime"&_ "dependsonhowmanydifferentpasswords,the"&_ "passwords,andyourcompu
7、ter'sspecification."&DBLSPACE&_ "Justbepatient!Makemeacoffee!"&AUTHORS&VERSION ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_ "StructureorWindowsPasswordset."&DBLSPACE&_ "Thepasswordfoundwas:"&DBLSPACE&"$$"&DBLSPACE&_ "Noteitdownforpotentialfutur
此文档下载收益归作者所有