如何撤銷有密碼的工作表保護(word版)

1、 精編范文 如何撤銷有密碼的工作表保護溫馨提示：本文是筆者精心整理編制而成，有很強的的實用性和參考性，下載完成后可以直接編輯，并根據(jù)自己的需求進行修改套用。如何撤銷有密碼的工作表保護 本文簡介：【如何撤銷有密碼的工作表保護】EXCEL工作表編輯資料, 設(shè)置了工作表保護后, 不能對表格進行插入刪除操作。如果沒有密碼, 很簡單:工具-選項工作表保護撤消工作表保護就可以了。如果忘記密碼, 如下操作：1打開文件2工具-宏-錄制新宏-輸入名字如:a3停止錄制(這樣得到一個空宏)4如何撤銷有密碼的工作表保護 本文內(nèi)容：【如何撤銷有密碼的工作表保護】EXCEL工作表編輯資料, 設(shè)置了工作表保護后, 不能對表

2、格進行插入刪除操作。如果沒有密碼, 很簡單:工具-選項工作表保護撤消工作表保護就可以了。如果忘記密碼, 如下操作：1打開文件2工具-宏-錄制新宏-輸入名字如:a3停止錄制(這樣得到一個空宏)4工具-宏-宏,選a,點編輯按鈕5刪除窗口中的所有字符(只有幾個),替換為下面的內(nèi)容:(復(fù)制下來)OptionExplicitPublicSubAllInternalPasswords()“Breaksworksheetandworkbookstructurepasswords.BobMcCormick“probablyoriginatorofbasecodealgorithmmodifiedforcove

3、rage“ofworkbookstructure/windowspasswordsandformultiplepasswords“NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)“Modified2003-Apr-04byJEM:Allmsgstoconstants,and“eliminateoneExitSub(Version1.1.1)“RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString

4、=DBLSPACE&vbNewLine&_“AdaptedfromBobMcCormickbasecodeby”&_“NormanHarkerandJEMcGimpsey”ConstHEADERAsString=“AllInternalPasswordsUserMessage”ConstVERSIONAsString=DBLSPACE&“Version1.1.12003-Apr-04”ConstREPBACKAsString=DBLSPACE&“Pleasereportfailure“&_“grammingnewsgroup.”Co

5、nstALLCLEARAsString=DBLSPACE&“Theworkbookshould“&_“nowbefreeofallpasswordprotection,somakesureyou:”&_DBLSPACE&“SAVEITNOW!”&DBLSPACE&“andalso”&_DBLSPACE&“BACKUP!,BACKUP!,BACKUP!”&_DBLSPACE&“Also,rememberthatthepasswordwas“&_“putthereforareason.Don”tstuffupcrucialformulas“&_“ordata.”&DBLSPACE&“Accessa

6、nduseofsomedata“&_“maybeanoffense.Ifindoubt,don”t.”ConstMSGNOPWORDS1AsString=“Therewerenopasswordson“&_“sheets,orworkbookstructureorwindows.”&AUTHORS&VERSIONConstMSGNOPWORDS2AsString=“Therewasnoprotectionto“&_“workbookstructureorwindows.”&DBLSPACE&_“Proceedingtounprotectsheets.”&AUTHORS&VERSIONConst

7、MSGTAKETIMEAsString=“AfterpressingOKbuttonthis“&_“willtakesometime.”&DBLSPACE&“Amountoftime“&_“dependsonhowmanydifferentpasswords,the“&_“passwords,andyourcomputer”sspecification.”&DBLSPACE&_“Justbepatient!Makemeacoffee!”&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString=“YouhadaWorksheet“&_“StructureorWind

8、owsPasswordset.”&DBLSPACE&_“Thepasswordfoundwas:“&DBLSPACE&“$”&DBLSPACE&_“Noteitdownforpotentialfutureuseinotherworkbooksby“&_“thesamepersonwhosetthispassword.”&DBLSPACE&_“Nowtocheckandclearotherpasswords.”&AUTHORS&VERSIONConstMSGPWORDFOUND2AsString=“YouhadaWorksheet“&_“passwordset.”&DBLSPACE&“Thepa

9、sswordfoundwas:“&_DBLSPACE&“$”&DBLSPACE&“Noteitdownforpotential“&_“futureuseinotherworkbooksbysamepersonwho“&_“setthispassword.”&DBLSPACE&“Nowtocheckandclear“&_“otherpasswords.”&AUTHORS&VERSIONConstMSGONLYONEAsString=“Onlystructure/windows“&_“protectedwiththepasswordthatwasjustfound.”&_ALLCLEAR&AUTH

10、ORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=

11、.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADERElseOnErrorResumeNext

12、Do“dummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=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=

13、FalseAnd_.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.nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:

14、NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets“AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets“ChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.Prot

15、ectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo“DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)

16、&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)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND2,_“$”,PWord1),vbInformation,HEADER“l(fā)everagefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDo“Bypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0En