文档介绍:怎么给excel20XX加密和解密篇一:20XXEXCEL破解密码操作 07版EXCEL工作表宏如何开启在空白菜单栏处右击出现"自定义快速访问工具栏"-->信任中心-->信任中心设置按钮-->宏设置-->点击启用所有宏-->确定-->确定,下次开文件时就可以自动打开文件中的宏了. ,再点击密码破解(撤销工作表保护) ---宏----录制新宏---输入名字如:aa(必须是字母的) (这样得到一个空宏) ---宏----宏,选aa,点编辑按钮 (只有几个),替换为下面的内容:(复制吧) ---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,,密码就会出现,然后在撤销工作保护中输入。内容如下: PublicSubAllInternalPasswords() ''probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords' 'NormanHarkerandJEMcGimpsey27-Dec-20XX(Version)'Modified20XX-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version) 'RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "ormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version20XX-Apr-04"ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_"tothenewsgroup." ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_"nowbefreeofallpasswordprotection,somakesureyou:"&_DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_ DBLSPACE&"Also,rememberthatthepasswordwas"&_ "'tstuffupcrucialformulas"&_ "ordata."&DBLSPACE&"Accessanduseofsomedata"&_ ",don't." ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_"sheets,orworkbookstructureorwindows."&AUTHORS&VERSIONConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_"workbookstructureorwindows."&DBLSPACE&_ "Proceedingtounprotectsheets."&AUTHORS&VERSION ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_"willtakesometime."&DBLSPACE&"Amountoftime"&_ "dependsonhowmanydifferentpasswords,the"&_ "passwords,puter'sspecification."&DBLSPACE&_ "Justbepatient!Makemeacoffee!"&AUTHORS&VERSION ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_"StructureorWindowsPasswo