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

1、Excel“撤销工作表保护密码”的破解并获取原始密码在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！2007版Excel表格中可以按照以下方式建宏：1、打开Excel表格中的Excel选项，选择自定义，得到如下画面：写月公式言级閱言赵怯速访冋工具栏°从

2、卞列遥坯命欽:須卜挂人单元再“回甞挂人工偉列挂人工乍長£弓足冰速访月二晨栏:;羽亍所有丈挡咖V町感程诈恢复鸵匚心资泯捶人文件中的圏L捋能创建图表打尸打印预览计箕二性杲降朋E韦十算快-1打印冊淨册刊曉工|偉列刊曉工性耒尸此置打印区域勵1迪打陰®毂在加范卞方三亍快圍死二m兰凹2、然后在左边侧框栏中选择“查看宏”童言三则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。3、大家可以在下面这个窗口处看到：惨改勉，“之后双击或者选择添加按钮，点击按钮，之后弹出窗口:4、在宏名处填写一个名字（可随意），然后点击创建，弹出以下窗口：3MicrosoftVisualBasic-生产物科

3、釆购需求计划绸制浇程df-模按1（代玛）问冈竭文件E桑讀逍祝圏mAC：f各式渭试S1?（RJZB-1：多協呈序辺衙二辿）再助竝咽翅*IB丨為审唱髭MM卜DD孑騒題會智対訓行列1工程-TBiProjectShee-.5华南牧A劝Thi5li'i：irklji：ii：il,:-&模块觀檯块1模块1模块”在字母序按分类序模夬iOS和将窗口内白的内容全从横线下开始复制OptionExplicitEndSub然后将下面分割线以内的内容开始复制粘贴在上面的窗口内：一PublicSubAllInternalPasswords()'Breaksworksheetandworkbooks

4、tructurepasswords.BobMcCormick'probablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofworkbookstructure/windowspasswordsandformultiplepasswords'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)&

5、#39;RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"AdaptedfromBobMcCormickbasecodeby"&_"NormanHarkerandJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVER

6、SIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_"grammingnewsgroup."ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&"nowbefreeofallpasswordprotection

7、,somakesureyou:"&_DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_DBLSPACE&"BACKUP!,BACKUP!,BACKUP!"&_DBLSPACE&"Also,rememberthatthepasswordwas"&_"putthereforareason.Don'tstuffupcrucialformulas"&_"ordat

8、a."&DBLSPACE&"Accessanduseofsomedata"&_"maybeanoffense.Ifindoubt,don't."ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_"sheets,orworkbookstructureorwindows."&AUTHORS&VERSIONConstMSGNOPWORDS2AsString="Therewasnoprotect

9、ionto"&_"workbookstructureorwindows."&DBLSPACE&_"Proceedingtounprotectsheets."&AUTHORS&VERSIONConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_"willtakesometime."&DBLSPACE&"Amountoftime"&_"dependsonh

10、owmanydifferentpasswords,the"&_"passwords,andyourcomputer'sspecification."&DBLSPACE&_"Justbepatient!Makemeacoffee!"&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_"StructureorWindowsPasswordset."&DBLSPACE&am

11、p;_"Thepasswordfoundwas:"&DBLSPACE&"$"&DBLSPACE&_"Noteitdownforpotentialfutureuseinotherworkbooksby"&_"thesamepersonwhosetthispassword."&DBLSPACE&_"Nowtocheckandclearotherpasswords."&AUTHORS&VERSIONConstMSGPWORDFOU

12、ND2AsString="YouhadaWorksheet"&_"passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_DBLSPACE&"$"&DBLSPACE&"Noteitdownforpotential"&_"futureuseinotherworkbooksbysamepersonwho"&_"setthispassword."&

13、;DBLSPACE&"Nowtocheckandclear"&_"otherpasswords."&AUTHORS&VERSIONConstMSGONLYONEAsString="Onlystructure/windows"&_"protectedwiththepasswordthatwasjustfound."&_ALLCLEAR&AUTHORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDim

14、iAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=False

15、ForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADERElseOnErrorResumeNextDo'dummydoloopFori=65To66:Forj=65To66:Fork=65To6

16、6Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126WithActiveWorkbook.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)If.ProtectStructure=Fals

17、eAnd_.ProtectWindows=FalseThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND1,"$",PWord1),vbInformation,HEADERExitDo'Bypassallfor.nextsEndIfEndWithN

18、ext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets'AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets'

19、;ChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo'DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6

20、=65To66:Forn=32To126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfNot.ProtectContentsThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&am

21、p;Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND2,_"$",PWord1),vbInformation,HEADER'leveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDo'Bypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:Ne

22、xtLoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADEREndSub复制到横线以上得到情况如下图表示licrosaftVisualBasic-生产勒料采5®需求计划绸制浇程.辺$-模块1【ft码）丈忡e奉諭e視图帥宕云©渭试si?（ejzaa：歩爛§序宾窗匚i也）赴助凹:ggQ晶占蹬歸丨引丄一nI*-VBAProject-、MicrjscftSSheetlSSheet2HSheet

23、39Sheet4<jL；住产老衣Eicel?生产电众生电华南电w>If.FrotEctCgtEiitmThen.OnErrorResuneHextDj'DunmvdoLoopF理F理F理F理i=65To66：Forj=65To66：Fork=35To661=65To66：Forrr=65To66：Foril=65To66i2=6ET)66：Fori3=65Tj66：Fori4=65门EEi5=6ET)66：Fori6=65Tj66：Forn=32To126朝块1理块按字母序按分类序名跆儘块1.JitfrotectChr(i)&ChiftChr(k：&-_Chr1)&一Clr胁&Chr(il)&Chr(L2：&Ckrl：i3)也_Chrii4)ftChr(i5)&Chr(i5)&Chr(a)IfKot.rrcteztCon