VBA 密码破解教程 第一步，新建一个 EXL 空白表格，复制代码到开发工具——Visual Basic——右键—— 插入——模块——考入代码。 第二步：拷贝 VBAPassword 到新建 EXL 任意单元格，拷贝需要破解 VBA 的文件位置 C:\Users\Administrator\Desktop（桌面的位置有点特殊，不可直接桌面）。拷贝破解表格名称 “Excel 支票打印模板 5.xls”放到文件位置后面（如 C:\Users\Administrator\Desktop\Excel 支 票打印模板 5.xls） 

第三步：在 VBAPassword 所在的单元格输入“=”然后引导到破解表格名称的文件位置 如=VBAPassword(C4)。 第四步：破解完成 Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False) 破解代码 If Dir(FileName) = "" Then Exit Function Else FileCopy FileName, FileName & ".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=""" Then CMGs = I If GetData = "[Host" Then DPBo = I - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对 VBA 编码设置一个保护密码...", 32, "提示" Exit Function End If If Protect = False Then Dim st As String * 2 Dim s20 As String * 1 Get #1, CMGs - 2, st Get #1, DPBo + 16, s20 For I = CMGs To DPBo Step 2 Put #1, I, st '取得一个 0D0A 十六进制字串 '取得一个 20 十六制字串 '替换加密部份机码 '加入不配对符号 Next If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功......", 32, "提示" Else 

Dim MMs As String * 5 MMs = "DPB=""" Put #1, CMGs, MMs MsgBox "对文件特殊加密成功......", 32, "提示" End If Close #1 End Function