excel撤销保护密码的方法步骤.docx

《excel撤销保护密码的方法步骤.docx》由会员分享，可在线阅读，更多相关《excel撤销保护密码的方法步骤.docx（14页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、excel2007撤销保护密码的方法步骤excel2007撤销保护密码的方法步骤工作中，有时会出现这样的情况：用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其别人修改您的设置或者防止您本人无意中修改，您可能会使用Excel的工作表保护功能，如今学习啦我给你推荐excel2007撤销保护密码的方法步骤。希望对你有帮助！excel2007撤销保护密码的方法1、打开Excel表格中的Excel选项，选择自定义，得到如下画面：excel2007撤销保护密码的方法图12、然后在左边侧框栏中选择查看宏之后双击或者选择添加按钮，则能够看到右边栏中有了查看宏按钮，之后点击右下角确

2、实定。3、大家能够在下面这个窗口处看到箭头所指的按钮：点击按钮，之后弹出窗口：excel2007撤销保护密码的方法图2excel2007撤销保护密码的方法图34、在宏名处填写一个名字(可随意)，然后点击创立，弹出下面窗口：excel2007撤销保护密码的方法图45、将窗口内的内容全选后删除，然后将下面分割线以内的内容开场复制粘贴在上面的窗口内：从横线下开场复制-OptionExplicitPublicSubAllInternalPasswords()Breaksworksheetandworkbookstructurepasswords.BobMcCormickprobablyoriginat

3、orofbasecodealgorithmmodifiedforcoverageofworkbookstructure/windowspasswordsandformultiplepasswordsNormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)Modified2003-Apr-04byJEM:Allmsgstoconstants,andeliminateoneExitSub(Version1.1.1)RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLin

4、evbNewLineConstAUTHORSAsString=DBLSPACEvbNewLine_AdaptedfromBobMcCormickbasecodeby_NormanHarkerandJEMcGimpseyConstHEADERAsString=AllInternalPasswordsUserMessageConstVERSIONAsString=DBLSPACEVersion1.1.12003-Apr-04ConstREPBACKAsString=DBLSPACEPleasereportfailure_tothemicrosoft.public.excel.programming

5、newsgroup.ConstALLCLEARAsString=DBLSPACETheworkbookshould_nowbefreeofallpasswordprotection,somakesureyou:_DBLSPACESAVEITNOW!DBLSPACEandalso_DBLSPACEBACKUP!,BACKUP!,BACKUP!_DBLSPACEAlso,rememberthatthepasswordwas_putthereforareason.Dontstuffupcrucialformulas_ordata.DBLSPACEAccessanduseofsomedata_mayb

6、eanoffense.Ifindoubt,dont.ConstMSGNOPWORDS1AsString=Therewerenopasswordson_sheets,orworkbookstructureorwindows.AUTHORSVERSIONConstMSGNOPWORDS2AsString=Therewasnoprotectionto_workbookstructureorwindows.DBLSPACE_Proceedingtounprotectsheets.AUTHORSVERSIONConstMSGTAKETIMEAsString=AfterpressingOKbuttonth

7、is_willtakesometime.DBLSPACEAmountoftime_dependsonhowmanydifferentpasswords,the_passwords,andyourcomputersspecification.DBLSPACE_Justbepatient!Makemeacoffee!AUTHORSVERSIONConstMSGPWORDFOUND1AsString=YouhadaWorksheet_StructureorWindowsPasswordset.DBLSPACE_Thepasswordfoundwas:DBLSPACE$DBLSPACE_Noteitd

8、ownforpotentialfutureuseinotherworkbooksby_thesamepersonwhosetthispassword.DBLSPACE_Nowtocheckandclearotherpasswords.AUTHORSVERSIONConstMSGPWORDFOUND2AsString=YouhadaWorksheet_passwordset.DBLSPACEThepasswordfoundwas:_DBLSPACE$DBLSPACENoteitdownforpotential_futureuseinotherworkbooksbysamepersonwho_se

9、tthispassword.DBLSPACENowtocheckandclear_otherpasswords.AUTHORSVERSIONConstMSGONLYONEAsString=Onlystructure/windows_protectedwiththepasswordthatwasjustfound._ALLCLEARAUTHORSVERSIONREPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,

10、i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTag

11、ThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADERElseOnErrorResumeNextDodummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To

12、66: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.Subst

13、itute(MSGPWORDFOUND1,_$,PWord1),vbInformation,HEADERExitDoBypassallfor.nextsEndIfEndWithNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheetsAttemptclearan

14、cewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheetsChecksforallclearShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDoDummydoloopFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=6

15、5To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=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)MsgB

16、oxApplication.Substitute(MSGPWORDFOUND2,_$,PWord1),vbInformation,HEADERleveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDoBypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxAL

17、LCLEARAUTHORSVERSIONREPBACK,vbInformation,HEADEREndSub-复制到横线以上得到情况如下列图表示excel2007撤销保护密码的方法图56、关闭编辑窗口;7、依次点击菜单栏上的工具-宏-宏,选AllInternalPasswords,运行,确定两次;等一会,就会出现下面对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。假如是别人的文档，你又想恢复密码设置，就能够用此密码进行保护，他就能用他设置的密码打开，你能够试试，很有趣的。字母一定要大写)：再点击确定。Excel的原始密码就被去除了!excel2007撤销保护密码的方法图68、最后记得关闭EXCEL文档时要保存，否则下回打开，文档仍然处于只读状态而无法修改。下一页更多精彩excel2007设置密码的步骤