EXCEL忘記密碼怎么辦？EXCEL工作表怎么清除密碼

1、EXCEL忘記密碼怎么辦？EXCEL工作表怎么清除密碼如何破解EXCEL工作表保護(hù)密碼1.工具-宏錄制新宏-輸入名字如:hh錄制新宏停止錄制（這樣得到一個空宏）工具宏宏，選hh,點(diǎn)編輯按鈕選擇“個人宏工作簿后按確定，彈出如下“暫停、按鈕點(diǎn)擊停止:1 點(diǎn)擊“運(yùn)行按鈕后，彈出“宏對話框,2點(diǎn)擊運(yùn)行“！工作保護(hù)密碼破解”這個宏9、運(yùn)行“！工作保護(hù)密碼破解”這個宏后，如下圖示意就可以解除工作表的密碼保護(hù)了（這個圖，如果工作表中有多組不同密碼，每解開一組，就會提示一次，也就說可能會出現(xiàn)兒次）工作表保護(hù)密碼破解(代碼)=二=請復(fù)制以下內(nèi)容=PublicSub工作表保護(hù)密碼破解()ConstDBLSPACE

2、AsStr ing=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_作者:McCormick JEMcGimpsey，/ConstHEADERAsString二工作表保護(hù)密碼破解ConstVERSIONAsString 二 DBLSPACE&版本ConstREPBACKAsString二DBLSPACE&ConstZHENGLIAsString 二 DBLSPACE&hfhzi3戊冥整理ConstALLCLEARAsString二DBLSPACE& 該工作簿中的工作表密碼保護(hù)已全 部解除！ ！ &DBLSPACE&請記得另

3、保存&DBLSPACE&注意：不要用在不當(dāng)?shù)胤?，要尊重他人的勞動成果?”ConstMSGNOPWORDSlAsString二該文件丄作表中沒有加密ConstMSGN0PW0RDS2AsString二該文件工作表中沒有加密2ConstMSGTAKETIMEAsString二解密需花費(fèi)一定時間，請耐心等候!&DBLSPACE& 按確定開始破解!ConstMSGPWORDFOUNDlAsString密碼重新組合為：&DBLSPACE&$&DBLSPACE&_如果該文件工作表有不同密碼，將搜索下一組密碼并修改清除ConstMSGPW0RDF0UND2AsString 二密碼重新組合為：&DBLSPA

4、CE&$&DBLSPACE&_如果該文件工作表有不同密碼,將搜索下一組密碼并解除ConstMSGONLYONEAsString 二確保為唯一的DimwlAsWorksheet, w2AsWorksheetDimiAsInteger, jAsInteger, kAsInteger, lAsIntegerDimmAsInteger, nAsInteger, ilAsInteger,i2AsIntegerDimi3AsInteger, i4AsInteger, i5AsInteger, i6AsIntegerDimPWordlAsStringDimShTagAsBoo1ean, WinTagAsBo

5、o1ean=FalseWithActiveWorkbookWinTag=.EndWithShTag=FalseForEachwlInWorksheetsShTag二NextwlIfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1, vbInformat ion, HEADERExitSubEndlfMsgBoxMSGTAKETIME, vblnformation, HEADERIfNotWinTagThenElseOnErrorResumeNextDo dummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65

6、To66:Form=65To66:Foril=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32Tol26Wi thAct iveWorkbook UnprotectChr (i)&Chr (j)&Chr (k)&.Chr (1) &Chr (m) &Chr (il) &Chr (i 2) &_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)=FalseAnd_ ProtectWindows=FalseThenPWordKhr (i)&Chr (j)&Chr (k

7、) &Chr (1)&_Chr(m)&Chr(il)&Chr(i2)&Chr(i 3)&_Chr (i4)&Chr (i5)&Chr (i6)&Chr (n)(MSGPWORDFOUND1, _PWordl), vbInformation, HEADERExitDo1 Bypassallfor nextsEndlfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoToOEndlfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE, vblnfo

8、rmation, HEADERExitSubEndlfOnErrorResumeNextForEachwlInWorksheetsAttemptc1earancewithPWordlNextwlOnErrorGoToOShTag=FalseForEachwlInWorksheetsChecksforallclearShTagtriggeredtolifnot.ShTag二NextwlIfShTagThenForEachwlInWorksheetsWithwlOnErrorResumeNextDoDummydoloopFori=65To66:Forj=65To66:Fork=65To66For1

9、二63To66:Form=65To66:Foril=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32Tol26.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(il)&Chr(i2)&Chr(i3)&_Chr (i4)&Chr (i5)&Chr (i6)&Chr (n)PWordKhr (i)&Chr (j)&Chr (k) &Chr (1)&_Chr(m)&Chr(il)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)(MSGPWORDFOUND2, _$, PWordl), vblnformation, HEADERleveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsNextw2ExitDoBypassallfor nextsEndlfNext:Next:Next:Next:Next:Next