Excel中如何破解“撤销工作表保护密码”并获取原始密码

('Excel中如何破解“撤销工作表保护密码”并获取原始密码一、保护工作表的方法1、全选定工作表右击［设置单元格格式]找到[保护]将[锁定]和［隐藏]两个的勾去掉；2、将要保护的工作表单元格选定右击［设置单元格格式］找到[保护]将［锁定］和［隐藏]两个的勾打上；3、点菜单栏的［工具]中的［保护］里的[保护工作表］将[保护工作表及锁定的单元内容]打上勾，下选允许此工作表的所有用户[选定未锁定的单元格］打上勾二、Excel工作表保护密码破解方法（如果Excel文件的打开密码忘记了，且密码是16位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）1、打开您需要破解保护密码的Excel文件;2、依次点击菜单栏上的工具—--宏————录制新宏，输入宏名字如：aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具—--宏———-宏，选aa,点编辑按钮；5、删除窗口中的所有字符（只有几个），替换为下面的内容；从横线下开始复制—-—-—-—-——------—----—----——————-—----——-——--———--—-—-———-———-——-————----—--——-——--—--—-—-OptionExplicitPublicSubAllInternalPasswords（)’Breaksworksheetandworkbookstructurepasswords.BobMcCormick\'probablyoriginatorofbasecodealgorithmmodifiedforcoverage’ofworkbookstructure/windowspasswordsandformultiplepasswords’’NormanHarkerandJEMcGimpsey27-Dec—2002(Version1。1)\'Modified2003—Apr-04byJEM:Allmsgstoconstants,and’eliminateoneExitSub(Version1。1.1）\'RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE＆vbNewLine＆_”AdaptedfromBobMcCormickbasecodeby”＆_"NormanHarkerandJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure”&_"tothemicrosoft.public.excel。programmingnewsgroup。"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="Onlystructure/windows”&_”protectedwiththepasswordthatwasjustfound."＆_ALLCLEAR＆AUTHORS＆VERSION＆REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger，kAsInteger,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger，i2AsIntegerDimi3AsInteger，i4AsInteger,i5AsInteger，i6AsIntegerDimPWord1AsStringDimShTagAsBoolean，WinTagAsBooleanApplication。ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTag=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1，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，HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets’AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets\'ChecksforallclearShTagtriggeredto1ifnot。ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If。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）＆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:NextLoopUntilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR＆AUTHORS＆VERSION＆REPBACK，vbInformation,HEADEREndSub-————----——-—-——---——-——-———————--—---————————--——————----—-----—---—————--——-—--—------—复制到横线以上6、关闭编辑窗口；7、依次点击菜单栏上的工具-—-宏———--宏，选AllInternalPasswords，运行，确定两次；等一会,就会出现以下对话框：这就是Excel密码对应的原始密码（此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护,他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写):再点击确定。Excel的原始密码就被清除了！!',)