excel中如何破解“撤銷工作表保護(hù)密碼”并獲取原始密碼

1、Excel中如何破解中如何破解“撤銷工作表保護(hù)密碼撤銷工作表保護(hù)密碼”并獲取原始密碼并獲取原始密碼、、保護(hù)工作表的方法工作表的方法1、全選定工作表右擊[設(shè)置單元格格式]找到[保護(hù)]將[鎖定]和[隱藏]兩個(gè)的勾去掉；2、將要保護(hù)的工作表單元格選定右擊[設(shè)置單元格格式]找到[保護(hù)]將[鎖定]和[隱藏]兩個(gè)的勾打上；3、點(diǎn)菜單欄的[工具]中的[保護(hù)]里的[保護(hù)工作表]將[保護(hù)工作表及鎖定的單元內(nèi)容]打上勾，下選允許此工作表的所有用戶[選定未鎖

2、定的單元格]打上勾二、二、Excel工作表保護(hù)密碼破解方法工作表保護(hù)密碼破解方法1、打開您需要破解保護(hù)密碼的Excel文件；2、依次點(diǎn)擊菜單欄上的工具宏錄制新宏，輸入宏名字如:aa；3、停止錄制(這樣得到一個(gè)空宏)；4、依次點(diǎn)擊菜單欄上的工具宏宏選aa點(diǎn)編輯按鈕；5、刪除窗口中的所有字符(只有幾個(gè))替換為下面的內(nèi)容；從橫線下開始復(fù)制OptionExplicitPublicSubAllInternalPasswds()Breakswksh

3、eetwkbookstructurepasswds.BobMcCmickprobablyiginatofbasecodealgithmmodifiedfcoverageofwkbookstructurewindowspasswdsfmultiplepasswdsNmanHarkerJEMcGimpsey27Dec2002(Version1.1)Modified2003Apr04byJEM:Allmsgstoconstantselimin

4、ateoneExitSub(Version1.1.1)RevealshashedpasswdsNOTiginalpasswdsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHSAsString=DBLSPACE&vbNewLine&_“AdaptedfromBobMcCmickbasecodeby“&_“NmanHarkerJEMcGimpsey“ConstHEADERAsString

5、=“AllInternalPasswdsUserMessage“ConstVERSIONAsString=DBLSPACE&“Version1.1.12003Apr04“ConstREPBACKAsString=DBLSPACE&“Pleasereptfailure“&_“tothemicrosoft.public.excel.programmingnewsgroup.“ConstALLCLEARAsString=DBLSPACE&“T

6、hewkbookshould“&_“nowbefreeofallpasswdprotectionsomakesureyou:“&_DBLSPACE&“SAVEITNOW!“&DBLSPACE&“also“&_DBLSPACE&“BACKUP!BACKUP!!BACKUP!!!“&_DBLSPACE&“Alsorememberthatthepasswdwas“&_“puttherefareason.Dontstuffupcrucialfm

7、ulas“&_OnErrResumeNextDodummydoloopFi=65To66:Fj=65To66:Fk=65To66Fl=65To66:Fm=65To66:Fi1=65To66Fi2=65To66:Fi3=65To66:Fi4=65To66Fi5=65To66:Fi6=65To66:Fn=32To126WithActiveWkbook.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&

8、Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)If.ProtectStructure=False_.ProtectWindows=FalseThenPWd1=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.

9、Substitute(MSGPWDFOUND1_“$$“PWd1)vbInfmationHEADERExitDoBypassallf...nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrGoTo0EndIfIfWinTagNotShTagThenMsgBoxMSGONLYONEvbInfmationH

10、EADERExitSubEndIfOnErrResumeNextFEachw1InWksheetsAttemptclearancewithPWd1w1.UnprotectPWd1Nextw1OnErrGoTo0ShTag=FalseFEachw1InWksheetsChecksfallclearShTagtriggeredto1ifnot.ShTag=ShTagw1.ProtectContentsNextw1IfShTagThenFEa