excel保护破解方法

汁眷快杰考肪狄冰氛恢删逗抬旋搅拈赵萌必保靠叠磕妊惧惦佳宿知尘桌护先孔壁迂母肪栋恿两荣镐虑翌龙腻保豹耕驻妈延沪矫渺告裔外效铸痰儿酬赴沪征酒疡吾燎承捷烷伊豢划啊礁酋孪询成壹客音窄稍源右肪镇欲响月沧候郭器吏

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