excel宏密码破解方法

1、一、 Excel 工程不可查看”两种实现方法及破解关于Excel宏编程中，要用到一些技巧，如破解 Excel宏加密。二、今天我对一个Excel宏编程中进行日期限制进行了破解。方法一（共用级锁定）1、先对excel档进行一般的vbaproject ”工程密码保护。2、打开要保护的档，选择 ：工具- 保护- 保护并共用活页簿- 以追踪修订方式共用- 输入密码- 保存档。完成彳爰，当你打开“ vbaproject ”工程属性时，就将会提示：工程不可看!方法二（推荐，破坏型锁定）用16进制编辑工具，如winhex、ultraedit-32 （可到此下载）等，再历害点的人完全可以用 debug命令来做用

2、以上软体打开excel档，查找定位以下地方 ：注：实际显示不会全部为 0此时，你只要将其中的位元组随便修改一下即可。保存再打开，就会发现大功告成！当然，在修改前最好做好你的文档备份。至於恢复只要将改动过的地方还原即可（只要你记住了呵呵）十、破解方面，有网友说将CMG=DPB不口 GC后的=替换为.也可以的，我已测试过的确可以，这样更省事点。1 用16进制编辑工具，如 winhex、ultraedit-32 打开X.xls文件，查找ID= ,或到文件尾查看，找到即可。改其中的任意一位，存盘就可达到目的，注意：留有备份文件I _ I 产# I1 JH一、检视程式码 复制以下代码 !按F8执行十四、

3、 Private Sub CommandButton1_Click（）十五、Worksheets。，这里为你要显示的工作表名称）.Visible = True十六、 End Sub十七、关于破解EXCELVBA工程密码的方法，以下代码非常有效，首先建一新EXCELS件,在工作表标签处右点 检视程式码 复制以下代码 按F8执行 在弹出窗中选你要你破解工程密码的EXCELS件 再按F5执行即可.十八、 Private Sub VBAPassword（）十九、你要解保护的Excel文件路径二十、 Filename = Application.GetOpenFilename(Excel 文件(*.xl

4、s & *.xla & *.xlt ) ,*.xls;*.xla;*.xlt,VBA破解)二 H、 If Dir(Filename) = Then二十二、MsgBox 没找到相关文件，清重新设置。二十三、Exit Sub二十四、Else二十五、 FileCopy Filename, Filename & .bak备份文件。二十六、End If二十七、Dim GetData As String * 5二十八、Open Filename For Binary As #1二十九、Dim CMGs As Long I / / 工I 、三十、 Dim DPBo As Long r 一、 For i =

5、1 To LOF(1)三十二、Get #1, i, GetDataI IlJ1 J匚三十三、If GetData = CMG= Then CMGs = i,T ：, -/ I 三十四、If GetData = Host Then DPBo = i - 2: Exit For三十五、Next三十六、If CMGs = 0 Then111三十七、MsgBox 请先对VBA编码设置一个保护密码 ,32, 提示三十八、Exit Sub j 三十九、End If四十、If Protect =False Then四 H一、Dim St As String* 2四十二、Dim s20 As String *

6、 1四十三、取得一个0D0A十六进制字串四十四、Get #1, CMGs - 2, St四十五、取得一个20十六制字串四十六、Get #1, DPBo + 16, s20四十七、替换加密部份机码四十八、 For i = CMGs To DPBo Step 2四十九、Put #1, i, St五十、Next五H一、加入不配对符号五十二、If (DPBo - CMGs)Mod 2 0 Then五十三、Put #1, DPBo + 1,s20五十四、End If五十五、MsgBox 文件解密成功 , 32,提示五十六、End If五十七、Close #1 I 5一 五十八、End Subr 五十九、

7、六十、 如果上面代码不能运行或出错，请用以下代码重试.六H 、 /T ： -/ I ；六十二、Private Sub VBAPassword()了 ) :六十三、你要解保护的Excel文件路径六十四、Filename = Application.GetOpenFilename(Excel 文件(*.xls & *.xla & *.xlt ) ,*.xls;*.xla;*.xlt,111VBA破解)六十五、If Dir(Filename) = Then j 六十六、MsgBox 没找到相关文件，清重新设置。六十七、Exit Sub六十八、Else六十九、FileCopy Filename, Fi

8、lename & .bak备份文件。七十、End If七一、Dim GetData As String * 5七十二、Open Filename For Binary As #1七十三、Dim CMGs As Long七十四、Dim DPBo As Long七十五、For i = 1 To LOF(1)七十六、Get #1, i, GetData七十七、If GetData=CMG= ThenCMGs=i七十八、If GetData=Host Then DPBo = i- 2: Exit For七十九、Next八十、If CMGs =0Then提示八H一、MsgBox 请先对VBA编码设置一个

9、保护密码 ,32,八十二、Exit Sub八十三、End If八十四、八十五、Dim St As String *2八十六、Dim s20 AsString* 1八十七、取得一个0D0A十六进制字串“ i _ jr_-t *八十八、Get #1, CMGs - 2, St八十九、取得一个20十六制字串了 ) :九十、 Get #1, DPBo + 16, s20九H一、替换加密部份机码.I 1九十二、For i = CMGs To DPBo Step 2九十三、Put #1, i, St:、 I J 九十四、Next九十五、加入不配对符号九十六、If (DPBo - CMGs)Mod 2 0

10、Then九十七、Put #1, DPBo + 1,s20九十八、End If九十九、MsgBox 文件解密成功 ,32, 提示百、 Close #1百一、 End Sub第二步：再点击 宏查看宏”，选择 宏名下的PasswordBreaker”并点击 编辑“，打开Microsoft Visual Basic编辑器，用如下内容替换右侧窗口中的所有代码：Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integ

11、er, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor 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

12、 n = 32 To 126ActiveSheet.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 ActiveSheet.ProtectContents = False ThenMsgBox One usable password is & 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.SelectRange(a1).FormulaR1C1 = Chr(i) &