破解excel工作表保护的方法

《破解excel工作表保护的方法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、破解EXCEL工作表保护的方法　　1打开文件　　2工具---宏----录制新宏---输入名字如:aa　　3停止录制(这样得到一个空宏)　　4工具---宏----宏,选aa,点编辑按钮　　5删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧)OptionExplicitPublicSubAllInternalPassick'probablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofultiplepassanHarkerandJEMcGimpsey27-Dec-

2、2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)'Revealshashedpassp;vbNep;vbNep;_AdaptedfromBobMcCormickbasecodeby_NormanHarkerandJEMcGimpseyConstHEADERAsString=AllInternalPassp;Version1.1.12003-Apr-04ConstREPBACK

3、AsString=DBLSPACEPleasereportfailure_tothemicrosoft.public.excel.programmingnep;Thep;_noakesureyou:_DBLSPACESAVEITNOSGNOPSGNOPSGTAKETIMEAsString=AfterpressingOKbuttonthis_etime.DBLSPACEAmountoftime_dependsonhoanydifferentpassp;_passp;DBLSPACE_Justbepatient!Makemeacoffee!AUTH

4、ORSVERSIONConstMSGPp;_Structureorp;_Thepassp;DBLSPACE$$DBLSPACE&am123下一页——..，。p;_Noteitdop;_thesamepersonp;DBLSPACE_Nop;AUTHORSVERSIONConstMSGPSGONLYONEAsString=Onlystructure/p;_protectedp;_ALLCLEARAUTHORSVERSIONREPBACKDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInte

5、ger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPsgBoxMSGTAKETIME,vbInformation,HEADERIfNotsgBoxMSGNOPsgBoxApplication.Substitute(MSGPsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets上一页123下一页——.

6、.，。'AttemptclearanceeNextDo'DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=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(

7、i6)Chr(n)IfNot.ProtectContentsThenPsgBoxApplication.Substitute(MSGPation,HEADER'leveragefindingPp;AUTHORSVERSIONREPBACK,vbInformation,HEADEREndSub　　6关闭编辑窗口　　7工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!上一页123——..，。