如何破解EXCEL工作表保护密码忘记密码怎么办1.新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表* ■乐碍乐雄迥-* >计■尙二0Q).... ㈱亍总HI“ ■ I i ■ * \Jfcft禺呵第證Mkrp^pft Qffiy fxeel JDQ7 工作褰x I gm[EHMI呦怔■: Ad>51iAk±VAt4f t?nfl；2. 一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定ft 真面布局公式敖掠审同视冒开裁工員D F2543.依次点击开发工具停止录制宏，宏录制完成| J fFik^j| 匮独画Mffi植近三t 陥比疙上窸甜空釦模式劑执行龙话框代再4.依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面处8屯简开林工貝能t■BS|斫厨丁亓的二作輝说閉5.在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完Mkroioft visual - Microsoft Office Excel 200?工荷txlsx文件⑥锚也迺世）磁©惜式型谒试曲迳行逊Zft® 尹碗詠笛莆口呦[<V0* Project:严讦］ 6.代码复制到 VBA 编辑窗口内Public Sub Alli nternalPasswords()'Breaks worksheet and workbook structure passwords. Bob McCormick'probably origi nator of base code algorithm modified for coverage'of workbook structure / win dows passwords and for multiple passwords 'Norman Harker and JE McGimpsey 27-Dec-2002 (Versio n 1.1)'Modified 2003-Apr-04 by JEM: All msgs to con sta nts, and'eliminate one Exit Sub (Version 1.1.1)'Reveals hashed passwords NOT orig inal passwords Con st DBLSPACE As Stri ng = vbNewLi ne & vbNewLi ne Const AUTHORS As Stri ng = DBLSPACE & vbNewLi ne & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Co nst HEADER As Stri ng = "AllI nternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Con st REPBACK As Stri ng = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup."Const ALLCLEAR As Stri ng = DBLSPACE & "The workbook should " & _ "now be free of all password protect ion, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _"put there for a reas on. Don't stuff up crucial formulas " & _"or data." & DBLSPACE & "Access and use of some data " & _ "may be an offen se. If in doubt, don't."Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As ¥SAFrojcct ~lie'二 ' Mier ft trfl tl 曲卑ShtttI Gb-tctl) 團Sh«frt2 0L 比吃j ： §环吗灯Sheet3) rhiEtferkija ak0 =J 榔吏 累樣块｝ 婦議磁Microsoft Office Excd 5007工件表卅仲-榔知(ft®]5uli **0 =» ・.croVLait^ CHlB^J.SeLcctAiplidtiofii Goto K#&*'g** -' ii' End S«tXIString = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook.Unprotect Chr(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 = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _"$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheets w2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub 点击保存酋V ( cu,>r 刊£ : •新■淨 Nicrc :旷 Office Fur st ?(J 07 丁吓李祇丫 文*D 坞劇£ 码蛮驀入①喀叱)为试血怎戸血工具①怕»民序圖甑口阻 «*tj(! X Mkrcso- Uffi« Eic-I ?CC7 丄咋査.出 J ( ■埠境i(代杞) l<aH ) U 越 “AT* CM ■“ 1 fi cr«oft E*ctl 对* ©£前魚1 tflStKtlZ (Shtt%2) g ShMit) ThiETurkbeifrk FuiKLi c 5'xl> OLInt *冠《1〒■忌 sw<i± Is. 0 Bri-tfet ff«r JiSthMitl ； md W.^i-klb a p3k nn 1 A W* *・丫胃¥口:「』1 E ・ ％ rt tC&-TF p^rotiibLy on CQBttor o£ bl"ic code lljon iTui m : d] f i td fcr CCTDT 8 o>f y sriei-o^-k «Fueter i $ 於：札旺號鼻 p ・£i ■■恥■吐£ mJ f<r BudupltF Homs Ntrktr Uid! JI HcGiw 岬 2TT 奇厂2002 即昭r i 阿 1 I J BfodsEicil E0O31■盘pi ■叫｝4 bjr J1EM All 3 i r Z J J nul-c ?m E^i. l 曲止・帝1. 1.1 j 'R OF 斗b.打patli ・1T 呵i g:宙 1 农"幻 C4-Mt DBL^F^JCE A S 二询！*<«□* A vLlwli nt a , 籌性w-r-iISftTftS 七 AUTlCt^ StFin.，E - BELSPAEE ■ T ：仪H L LM ""fciBpl.td F FH It 亦 HcC^mick In coit ky* & . Hurker wd JI H 凶 CiTftit HEMEH Xi Strsnc = *U 1 I^t «rnal F tttT*rdr Ca-ut ^RSl&JT As Striit 二 DELSfACI t “让护■血 I LI Cfrut 紅P?MK As 寒Wi 呼=D^LSPACE t "Pl«ic« "射讥 ■:灯 piibf* A ・bl ；龍•霍耳yw^；醴 * CtKui 18iri 174R Jks Ste-isif ； — DSLSTJU 匚E 4. *Tbw irurkbo^k sh^^LlJ. * A B jifw fr« of til pi¥i.vor4 讥>« •比曹 s«rt y«ia " t . CB ：1£P*CE & 亠 CT=LSF*CE & TMKWL BMRJPJ B1CW a _ DB.L5FJUCE k … 亠 亠 = = tk<re :⑷ d«U * « DSI^FACE 4 "Accitv 细M af font d*・ * L -fc*y be u Oiffen^t. I£ L EL d«bt, don't ” Cd-ut l£ODP tOfiH£ 1 iLx £trih< 二 ^Ihtr* v^rt rto p*swMrdx * PF *orlcV#*lk i lr tielw i or ndt^w M 4 KUTMNS JI \ t <S4wOH&MO^t 盘尊 £trm^ - "thir* 巧萼皿 1 "rtrk>®efc ar nni^s " * PELS 『怀更嘱= "froc**diiLC lo ^aprottcl 4 AWIffifiS 4 WEfiSIOU ISGTAnnul Ai St^mj = *Aft IF >r»ELhf J. >tktt4ti 1 *rill <tk« t«4 lift*. ff a DBLSFACE 4 — "^«p«-ridjs tn kcrT n- any li f£-cr<ji.C. p ns ST or 暫-宅 h rf FW>^fr<iji wl rw tmirS itteifioM^ihi r A WlST^l ft V^st b« priieM* »«hr «< ■cflffter 4 OWSS « VE 能 1領 Uitr ■tiiicr 如：AM L -M £«ilurt ' I 飞则I IT Wfii" * DSLSFACE A *u4 tin' * "Alt 电 tktil vbt p4ifw«r^ T *S * it for « I s<4f£ up eru« a kl 4EL J. VERSJ M *4 ■ dL tkh« ' 7.点击开发工具，宏，找到我们刚才录制的宏，点击执行宏 •・U r ・ HfF ^kib ■ >■ ■»■^Ti pj IX N ICTC □-sort Office Eiccel滞人 ME 幵爰工具8.而后，在弹出的所有对话框上，都点击确定，都确定, 1分钟后，就可以编辑了宏名观）:Alllnt wiulFrssw ordsAlllnttrailFtssYordAlllntemalPasswo rds User Message 单步血行（S）S3说朋After pressing OK button th it will take some time.Amount o*f tim« depends on how many different passwords, the passwords, and your computer's specification・Just be patient! Make me a coffee1Adapted from Bob McCormick ba$e code byNorman Harker and JE McGimpseyVersion 1.1.1 2003-Apr-04。