Excel—“撤销工作表保护密码”的破解并获取原始密码.pdfVIP

Excel—“撤销工作表保护密码”的破解并获取原始密码 Excel—“撤销工作表保护密码”的破解并获取原始密码 EExxcceell——““撤撤销销工工作作表表保保护护密密码码””的的破破解解并并获获取取原原始始密密码码 在日常工作中，您是否遇到过这样的情况：您用Excel 编制的报表、表格、程序等，在单元 格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可 能会使用Excel 的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从 网上下载的Excel 格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只 要按照以下步骤操作，Excel工作表保护密码瞬间即破！ 1、打开您需要破解保护密码的Excel 文件； 2、依次点击菜单栏上的工具宏录制新宏，输入宏名字如:aa； 3、停止录制(这样得到一个空宏)； 4、依次点击菜单栏上的工具宏宏,选aa,点编辑按钮； 5、删除窗口中的所有字符(只有几个),替换为下面的内容； 从横线下开始复制 Option Explicit Public SubAllInternalPasswords() Breaksworksheetand workbookstructure passwords.Bob McCormick probably originator ofbasecodealgorithm modified forcoverage ofworkbookstructure /windowspasswordsand formultiple passwords NormanHarker andJEMcGimpsey 27-Dec-2002(Version 1.1) Modified 2003-Apr-04byJEM:All msgsto constants,and eliminate oneExit Sub(Version 1.1.1) Reveals hashedpasswordsNOToriginal passwords ConstDBLSPACEAsString =vbNewLine vbNewLine ConstAUTHORSAsString =DBLSPACE vbNewLine _ Adapted fromBob McCormickbase code by_ Norman Harkerand JEMcGimpsey ConstHEADER As String= AllInternalPasswordsUser Message ConstVERSIONAsString =DBLSPACE Version 1.1.12003-Apr-04 ConstREPBACKAs String = DBLSPACE Please reportfailure _ to the gramming newsgroup. ConstALLCLEAR AsString =DBLSPACE The workbookshould _ now be freeofall passwordprotection, somake sure you: _ DBLSPACE SAVE ITNOW!DBLSPACE and also _ DBLSPACE BACKUP!,BACKUP!!,BACKUP!!! _ DBLSPACE Also,remember thatthe passwordwas _ put there fora reason.Dontstuffupcrucial formulas _ or data.DBLSPACE Accessand useofsomedata _ may be an offense.Ifin doubt,dont. ConstMSGNOPWORDS1As String =There were nopasswordson _ sheets,orworkbookstructure orwindows.AUTHORS VERSION ConstMSGNOPWORDS2As String =There wasno protection to _ workbookstructureor windows.DBLSPACE _ Proceeding to unprotectsheets.AUTHORS VERSION ConstMSGTAKETIMEAs String= After pressing OKbutton this _ wil