excel2010保護(hù)工作表忘記密碼怎么辦

1、112excel2010保護(hù)工作表忘記密碼怎么辦篇一：Excel表格中忘了撤銷工作表保護(hù)密碼怎么辦？Excel表格中忘了撤銷工作表保護(hù)密碼怎么辦？用宏代碼破解密碼：以office2007為例說明，（2003也是一樣的，只是菜單命令的位置不同）第一步：打開該文件，先解除默認(rèn)的“宏禁用”狀態(tài)，方法是點擊工具欄下的“選項”狀態(tài)按鈕，打開“MicrosoftOffice安全選項”窗口，選擇其中的“啟用此內(nèi)容”，“確定”退出；再切換到“視圖”選項

2、卡，點擊“宏”→“錄制宏”，出現(xiàn)“錄制新宏”窗口，在“宏名”定義一個名稱為：PassWdBreaker，點擊“確定”退出；第二步：再點擊“宏”→“查看宏”，選擇“宏名”下的“PasswdBreaker”并點擊“編輯”，打開“MicrosoftVisualBasic”編輯器，用如下內(nèi)容替換右側(cè)窗口中的所有代碼：SubPasswdBreaker()DimiAsIntegerjAsIntegerkAsIntegerDimlAsIntegerm

3、AsIntegernAsIntegerDimi1AsIntegeri2AsIntegeri3AsIntegerDimi4AsIntegeri5AsIntegeri6AsIntegerOnErrResumeNextFi=65To66:Fj=65To66:Fk=65To66Fl=65To66:Fm=65To66:Fi1=65To66Fi2=65To66:Fi3=65To66:Fi4=65To66Fi5=65To66:Fi6=65To66:F

4、n=32To126ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox“Oneusablepasswdis“&Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m

5、)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ActiveWkbook.Sheets(1).Range(“a1“).FmulaR1C1=Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)312“maybeanoffense.Ifindoub

6、tdont.“ConstMSGNOPWDS1AsString=“Therewerenopasswdson“&_“sheetswkbookstructurewindows.“&AUTHS&VERSIONConstMSGNOPWDS2AsString=“Therewasnoprotectionto“&_“wkbookstructurewindows.“&DBLSPACE&_“Proceedingtounprotectsheets.“&AUT

7、HS&VERSIONConstMSGTAKETIMEAsString=“AfterpressingOKbuttonthis“&_“willtakesometime.“&DBLSPACE&“Amountoftime“&_“dependsonhowmanydifferentpasswdsthe“&_“passwdsyourcomputersspecification.“&DBLSPACE&_“Justbepatient!Makemeacof

8、fee!“&AUTHS&VERSIONConstMSGPWDFOUND1AsString=“YouhadaWksheet“&_“StructureWindowsPasswdset.“&DBLSPACE&_“Thepasswdfoundwas:“&DBLSPACE&“$$“&DBLSPACE&_“Noteitdownfpotentialfutureuseinotherwkbooksby“&_“thesamepersonwhosetthis

9、passwd.“&DBLSPACE&_“Nowtocheckclearotherpasswds.“&AUTHS&VERSIONConstMSGPWDFOUND2AsString=“YouhadaWksheet“&_“passwdset.“&DBLSPACE&“Thepasswdfoundwas:“&_DBLSPACE&“$$“&DBLSPACE&“Noteitdownfpotential“&_“futureuseinotherwkboo

10、ksbysamepersonwho“&_“setthispasswd.“&DBLSPACE&“Nowtocheckclear“&_“otherpasswds.“&AUTHS&VERSIONConstMSGONLYONEAsString=“Onlystructurewindows“&_“protectedwiththepasswdthatwasjustfound.“&_ALLCLEAR&AUTHS&VERSION&REPBACKDimw1

11、AsWksheetw2AsWksheetDimiAsIntegerjAsIntegerkAsIntegerlAsIntegerDimmAsIntegernAsIntegeri1AsIntegeri2AsIntegerDimi3AsIntegeri4AsIntegeri5AsIntegeri6AsIntegerDimPWd1AsStringDimShTagAsBooleanWinTagAsBooleanApplication.Screen