破解excel宏密码

百度空间|百度主页|登录OkkqOkkq的空间主页博客相册个人文件朋友看文章使用宏代码-解密工作表保护(VBAproject密码破解，使用方便)2009-09-08 22333636来源：http:/hi . B/hfhouzi 3/blog/item/722 CAC 0834 e 220 b77 e . html网上有很多这个代码，但是很多朋友不知道如何在这里应用，整理一些，希望对大家有帮助！注意：您经常因为忘记重要EXCEL文件的密码而苦恼。此代码可以按原意收回。如果这个代码使你不安，请加强计算机文件的秘密保证。如果用在错误的地方，后果自负！工作表保护解密(图)1、创建新的EXCEL文件“BOOK1”。在工具栏的空白位置单击鼠标右键，然后选择“Visual Basic”项目。弹出Visual Basic工具栏。2、在Visual Basic工具栏上，单击“录制”按钮。打开录制新宏对话框，然后选择个人宏工作簿。3、选择“个人宏工作簿”，然后单击确定。弹出以下“暂停”按钮，然后单击“停止”。4.在Visual Basic工具栏上，单击“编辑”按钮。5、单击“编辑”按钮后，将出现下图中的编辑界面。 VBAProject(PERSONAL .XLS)-)-找到模块-模块1(模块N-也可以是其他数字)双击模块1-清空右侧代码的内容6、将“作业保护解密”代码复制到右侧框，保存点，然后关闭“BOOK1”7、运行需要解密的“EXCEL文件”，然后单击Visual Basic工具栏上的“运行”按钮8、单击“运行”按钮后，将出现“宏”对话框。“个人。单击“运行XLS”！工作保护解密“宏9， PERSONAL。运行“XLS”！操作保护密码破解创建宏后下图显示了可以关闭工作表的密码保护(此图显示了工作表具有多个不同密码集的情况每次解组时询问一次。说会出现几次)工作表保护解密(代码)=复制以下内容=Public Sub工作表可以保护密码崩溃()const dbl space as string=VB newline VB newlineconst authors as string=dbl space VB newline _作者：McCormick JE McGimpseyConst HEADER As String=“解密图纸保护”Const VERSION As String=DBLSPACE 版本1.1.1 Const REPBACK As String=DBLSPACE const Zheng Li as string=dbl space hfh zi 3-e完成Const ALLCLEAR As String=DBLSPACE 已在工作簿中禁用工作表密码保护！DBLSPACE“记住其他保存”_ DBLSPACE 注意：不要写在不合适的地方，尊重别人的劳动成果！Const msgnpwords1as string=“此文件工作表没有加密”Const MSGNOPWORDS2 As String=“此文件工作表没有加密2”Const MSGTAKETIME As String=解密可能需要一些时间。“请等一等！”按“确定”开始崩溃Const MSGPWORDFOUND1 As String=将密码重新组合到： dbl space $ dbl space _如果文件工作表的密码不同，将检索以下密码集，并修改清理Const MSGPWORDFOUND2 As String=重新合并密码： dbl space $ dbl space _“如果文件工作表的密码不同，将检索并禁用以下密码集”Const MSGONLYONE As String=“验证是否唯一？”Dim w1 As Worksheet，w2 As WorksheetDim I as integer、j as integer、k as integer、l as integerDimm as integer，n as integer，i1 as integer，I2 as integerDimi3 as integer，i4 as integer，i5 as integer，i6 as integerDim PWord1 As StringDimsh tag as boolean，win tag as booleanapplication . scree updating=falseWith ActiveWorkbookWintag=。protect structure or . protect windowsEnd WithShTag=FalseFor Each w1 In Worksheetssh tag=sh tag or w1 . protect contentsNext w1If Not ShTag And Not WinTag ThenMsgbox msgnompwords1，VB信息，headerExit SubEnd IfMsgbox msgtaketime，VB信息，headerIf Not WinTag ThenElseOn 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 126With 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 Thenp word 1=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(msgpwordfound 1，_$ $ 、pword 1)、VB information、headerExit Do Bypass all for.nextsEnd IfEnd Withnext : next : next : next : next : next : nextnext : next : next : next : next : next : nextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgbox msg only one，VB information，headerExit SubEnd IfOn Error Resume NextFor Each w1 In WorksheetsAttempt clearance with PWord1W1 .Unprotect PWord1Next w1On Error GoTo 0ShTag=FalseFor Each w1 In Worksheetschecks for all clear sh tag triggered to 1 if not。sh tag=sh tag or w1 . protect contentsNext 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 Thenp word 1=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(msgpwordfound 2，_$ $ 、pword 1)、VB information、headerleverage finding pword by trying on other sheetsFor Each w2 In WorksheetsW2 .Unprotect PWord1Next w2Exit Do Bypass all for.nextsEnd Ifnext : next : next : next : next : next : nextnext : next : next : next : next : next : nextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End Ifmsgbox all clear authors version rep backengli，VB information，headerEnd Sub=(图1)(图2)工作表保护解密代码如上图所示，位于VBAProject(PERSONAL .XLS)个人宏工作簿模块类别：基本分类|添加到搜索|浏览(1050) |说明(11)前：周星驰电影引文后：空间祝福的语言最近的读者：杰克0081懒猫yang kesin 221凯吉娜110电源Lsxtzq迷你海盗王Shiliang_lu网民评论：1兴义862008-11-08 09:38 |答复这个很好，但先收藏了2网民：t2009-01-15 11336956 |答复有效果吗3匿名网民2009-02-03 143336953 |答复好吧，我只标了密码。这个不只是做标记，最好自动删除。谢谢分享4玉林为美峰而高兴2009-04-20 143336942 |答复还学了几门55136865052009-04-22 153336959 |答复谢谢。6网民：利亚2009-04-26 163336919 |答复你好，你好！谢谢你的建议，但我工作后，我现在所有的表VBA窗口都只有上面的源代码，怎么办？如何恢复？请指教！7Hfhzi32009-04-27 22:12 |答复莉亚回信：具体不知道你说的情况，说明如下首先，您从未编写过VBA函数(代码)个人宏工作簿是作为EXCEL的一部分创建的，您可以查看打开的任何工作表。您无法自行撰写EXCEL的VBA自订函数程式码，以检视软体本身的函数程式码。此处提供的工作表解密代码(自定义函