如何撤销有密码的工作表保护(word版)VIP

1、 精编范文 如何撤销有密码的工作表保护温馨提示：本文是笔者精心整理编制而成，有很强的的实用性和参考性，下载完成后可以直接编辑，并根据自己的需求进行修改套用。如何撤销有密码的工作表保护 本文简介：【如何撤销有密码的工作表保护】EXCEL工作表编辑资料, 设置了工作表保护后, 不能对表格进行插入删除操作。如果没有密码, 很简单:工具-选项工作表保护撤消工作表保护就可以了。如果忘记密码, 如下操作：1打开文件2工具-宏-录制新宏-输入名字如:a3停止录制(这样得到一个空宏)4如何撤销有密码的工作表保护 本文内容：【如何撤销有密码的工作表保护】EXCEL工作表编辑资料, 设置了工作表保护后, 不能对表

2、格进行插入删除操作。如果没有密码, 很简单:工具-选项工作表保护撤消工作表保护就可以了。如果忘记密码, 如下操作：1打开文件2工具-宏-录制新宏-输入名字如:a3停止录制(这样得到一个空宏)4工具-宏-宏,选a,点编辑按钮5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制下来)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“leveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDo“Bypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0En