2014破解密码宏程序代码.docVIP

将你要破解的Excel文件关闭，切记一定要关闭呀！然后新建一个Excel文件 打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图所示 将代码复制到这个模块中，代码如下：Private Sub VBAPassword() 你要解保护的Excel文件路径Filename = Application.GetOpenFilename(Excel文件（*.xls *.xla *.xlt）,*.xls;*.xla;*.xlt, , VBA破解)If Dir(Filename) = ThenMsgBox 没找到相关文件,清重新设置。Exit SubElseFileCopy Filename, Filename .bak 备份文件。End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = CMG= Then CMGs = iIf GetData = [Host Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenMsgBox 请先对VBA编码设置一个保护密码..., 32, 提示Exit SubEnd IfDim St As String * 2Dim s20 As String * 1取得一个0D0A十六进制字串Get #1, CMGs - 2, St取得一个20十六制字串Get #1, DPBo + 16, s20替换加密部份机码For i = CMGs To DPBo Step 2Put #1, i, StNext加入不配对符号If (DPBo - CMGs) Mod 2 0 ThenPut #1, DPBo + 1, s20End IfMsgBox 文件解密成功......, 32, 提示Close #1End Sub 然后点击运行按钮，如图所示，绿色的小三角就是 你会看到，打开了一个文件夹，找到我们要破解的这个文件，然后点击打开 稍等几分钟你就会看到破解成功的提示了 1\打开文件2\工具---宏----录制新宏---输入名字如:aa3\停止录制(这样得到一个空宏)4\工具---宏----宏,选aa,点编辑按钮5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6\关闭编辑窗口7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!内容如下：Public Sub AllInternalPasswords() Breaks worksheet and workbook structure passwords. Bob McCormick probably originator of base code algorithm modified for coverage of workbook structure / windows passwords and for multiple passwords Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) Modified 2003-Apr-04 by JEM: All msgs to constants, and eliminate one Exit Sub (Version 1.1.1) Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine vbNewLineConst AUTHORS As String = DBLSPACE vbNewLine _Adapted from Bob McCormick base code by _Norman Harker and JE McGimpseyConst HEADER As String = AllInternalPasswords User MessageConst VERSION As String = DBLSPACE Version 1.1.1 2003-Apr-04Const REPBACK As String = DBLSPACE Please report failure _to the gramming