Excel中表格工作表保护密码撤销的操作方法
本作品内容为Excel中表格工作表保护密码撤销的操作方法,格式为 doc ,大小 26112 KB ,页数为 11页
('如对您有帮助,请购买打赏,谢谢您!Excel中表格工作表保护密码撤销的操作方法在做excel表格时我们有时候会给自己的工作表加密,一旦忘记密码就会很麻烦,如何绕过密码,直接撤销保护。今天,学习啦小编就教大家在Excel中表格工作表保护密码撤销的操作方法。Excel中表格工作表保护密码撤销的操作步骤打开excel,点击菜单栏的“视图”,点击二级菜单里的“宏”,选择录制宏。表格工作表保护密码撤销的操作图1在弹出来的方框中输入宏的名称,点击确认。表格工作表保护密码撤销的操作图2重复第一步的步骤,不过这次点击“停止录制”。表格工作表保护密码撤销的操作图3选择查看宏。表格工作表保护密码撤销的操作图4编辑宏。表格工作表保护密码撤销的操作图5在弹出来的代码框输入下面的代码:OptionExplicit如对您有帮助,请购买打赏,谢谢您!PublicSubAllInternalPasswords()’Breaksworksheetandworkbookstructurepasswords.BobMcCormick’probablyoriginatorofbasecodealgorithmmodifiedforcoverage’ofworkbookstructure/windowspasswordsandformultiplepasswords’’NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)’Modified2003-Apr-04byJEM:Allmsgstoconstants,and’eliminateoneExitSub(Version’RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_”AdaptedfromBobMcCormickbasecodeby”&_”NormanHarkerandJEMcGimpsey”如对您有帮助,请购买打赏,谢谢您!ConstHEADERAsString=“AllInternalPasswordsUserMessage”ConstVERSIONAsString=DBLSPACE&“Version1.1.12003-Apr-04”ConstREPBACKAsString=DBLSPACE&“Pleasereportfailure“&_”tothenewsgroup.”ConstALLCLEARAsString=DBLSPACE&“Theworkbookshould“&_”nowbefreeofallpasswordprotection,somakesureyou:”&_DBLSPACE&“SAVEITNOW!”&DBLSPACE&“andalso”&_DBLSPACE&“BACKUP!,BACKUP!!,BACKUP!!!”&_DBLSPACE&“Also,rememberthatthepasswordwas“&_”putthereforareason.Don’tstuffupcrucialformulas“&_”ordata.”&DBLSPACE&“Accessanduseofsomedata“&_”maybeanoffense.Ifindoubt,don’t.”如对您有帮助,请购买打赏,谢谢您!ConstMSGNOPWORDS1AsString=“Therewerenopasswordson“&_”sheets,orworkbookstructureorwindows.”&AUTHORS&VERSIONConstMSGNOPWORDS2AsString=“Therewasnoprotectionto“&_”workbookstructureorwindows.”&DBLSPACE&_”Proceedingtounprotectsheets.”&AUTHORS&VERSIONConstMSGTAKETIMEAsString=“AfterpressingOKbuttonthis“&_”willtakesometime.”&DBLSPACE&“Amountoftime“&_”dependsonhowmanydifferentpasswords,the“&_”passwords,andyourcomputer’sspecification.”&DBLSPACE&_”Justbepatient!Makemeacoffee!”&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString=“YouhadaWorksheet“&_如对您有帮助,请购买打赏,谢谢您!”StructureorWindowsPasswordset.”&DBLSPACE&_”Thepasswordfoundwas:“&DBLSPACE&““&DBLSPACE&_”Noteitdownforpotentialfutureuseinotherworkbooksby“&_”thesamepersonwhosetthispassword.”&DBLSPACE&_”Nowtocheckandclearotherpasswords.”&AUTHORS&VERSIONConstMSGPWORDFOUND2AsString=“YouhadaWorksheet“&_”passwordset.”&DBLSPACE&“Thepasswordfoundwas:“&_DBLSPACE&““&DBLSPACE&“Noteitdownforpotential“&_”futureuseinotherworkbooksbysamepersonwho“&_”setthispassword.”&DBLSPACE&“Nowtocheckandclear“&_”otherpasswords.”&AUTHORS&VERSIONConstMSGONLYONEAsString=“Only如对您有帮助,请购买打赏,谢谢您!structure/windows“&_”protectedwiththepasswordthatwasjustfound.”&_ALLCLEAR&AUTHORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThen如对您有帮助,请购买打赏,谢谢您!MsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADERElseOnErrorResumeNextDo‘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=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:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNext如对您有帮助,请购买打赏,谢谢您!ForEachw1InWorksheets’AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets’ChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo‘DummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66如对您有帮助,请购买打赏,谢谢您!Fori5=65To66:Fori6=65To66:Forn=32To126.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&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:Next如对您有帮助,请购买打赏,谢谢您!LoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADEREndSub表格工作表保护密码撤销的操作图6猜你喜欢:1.如何撤销excel工作表保护的方法2.Excel表格取消密码保护的操作方法3.怎么在excel中保护和取消保护工作表4.excel表格取消密码保护的教程5.excel表格撤销保护的方法6.Excel中进行工作表设置密码保护的操作方法7.Excel中2007版本进行撤销工作表保护密码的操作方法8.Excel中进行表格工作表设置保护的操作方法',)
提供Excel中表格工作表保护密码撤销的操作方法会员下载,编号:1700786011,格式为 docx,文件大小为11页,请使用软件:wps,office word 进行编辑,PPT模板中文字,图片,动画效果均可修改,PPT模板下载后图片无水印,更多精品PPT素材下载尽在某某PPT网。所有作品均是用户自行上传分享并拥有版权或使用权,仅供网友学习交流,未经上传用户书面授权,请勿作他用。若您的权利被侵害,请联系963098962@qq.com进行删除处理。