excel2010保护工作表忘记密码怎样办范文 篇一：Excel表格中忘了撤销工作表保护密码怎么办？ Excel表格中忘了撤销工作表保护密码怎么办？ 用宏代码破解密码： 以office2007为例说明，（2003也是一样的，只是菜单命令的位置不同） 第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出； 再切换到“视图”选项卡，点击“宏”“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出； 第二步：再点击“宏”“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码： SubPasswordBreaker() DimiAsInteger,jAsInteger,kAsInteger DimlAsInteger,mAsInteger,nAsInteger Dimi1AsInteger,i2AsInteger,i3AsInteger Dimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNext Fori=65To66:Forj=65To66:Fork=65To66 Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_ Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) IfActiveSheet.ProtectContents=FalseThen MsgBoxOneusablepasswordis&Chr(i)&Chr(j)&_ Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_ Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) ActiveWorkbook.Sheets(1).Select Range(a1).FormulaR1C1=Chr(i)&Chr(j)&_ Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_ Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) ExitSub EndIf Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next EndSub 第三步：再点击“宏”“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。 篇二：EXCEL工作表保护密码忘记了,如何撤消工作表保护 1打开文件 2工具-宏-录制新宏-输入名字如:aa 3停止录制(这样得到一个空宏) 4工具-宏-宏,选aa,点编辑按钮 5删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧) OptionExplicit PublicSubAllInternalPasswords() Breaksworksheetandworkbookstructurepasswords.BobMcCormick probablyoriginatorofbasecodealgorithmmodifiedforcoverage ofworkbookstructure/windowspasswordsandformultiplepasswords NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) Modified2003-Apr-04byJEM:Allmsgstoconstants,and eliminateoneExitSub(Version1.1.1) RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=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.Dontstuffupcrucialformulas&_ ordata.&DBLSPACE&Accessanduseofsomedata&_ maybeanoffense.Ifindoubt,dont. ConstMSGNOPWORDS1AsString=Therewerenopasswordson&_ sheets,orworkbookstructureorwindows.&AUTHORS&VERSION ConstMSGNOPWORDS2AsString=Therewasnoprotectionto&_ workbookstructureorwindows.&DBLSPACE&_ Proceedingtounprotectsheets.&AUTHORS&VERSION ConstMSGTAKETIMEAsString=AfterpressingOKbuttonthis&_ willtakesometime.&DBLSPACE&Amountoftime&_ dependsonhowmanydifferentpasswords,the&_ passwords,andyourcomputersspecification.&DBLSPACE&_ Justbepatient!Makemeacoffee!&AUTHORS&VERSION ConstMSGPWORDFOUND1AsString=YouhadaWorksheet&_ StructureorWindowsPasswordset.&DBLSPACE&_ Thepasswordfoundwas:&DBLSPACE&$&DBLSPACE&_ Noteitdownforpotentialfutureuseinotherworkbooksby&_ thesamepersonwhosetthispassword.&DBLSPACE&_ Nowtocheckandclearotherpasswords.&AUTHORS&VERSION ConstMSGPWORDFOUND2AsString=YouhadaWorksheet&_ passwordset.&DBLSPACE&Thepasswordfoundwas:&_ DBLSPACE&$&DBLSPACE&Noteitdownforpotential&_ futureuseinotherworkbooksbysamepersonwho&_ setthispassword.&DBLSPACE&Nowtocheckandclear&_ otherpasswords.&AUTHORS&VERSION ConstMSGONLYONEAsString=Onlystructure/windows&_ protectedwiththepasswordthatwasjustfound.&_ ALLCLEAR&AUTHORS&VERSION&REPBACK Dimw1AsWorksheet,w2AsWorksheet DimiAsInteger,jAsInteger,kAsInteger,lAsInteger DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger DimPWord1AsString DimShTagAsBoolean,WinTagAsBoolean Application.ScreenUpdating=False WithActiveWorkbook WinTag=.ProtectStructureOr.ProtectWindows EndWith