破解Excel VBA project 密码

本教程只适用于2003格式的excel,如果是其他的格式,请先转换成2003后再使用此方法:

1.下载并安装编辑器HxD Hex Editor。下载地址:http://mh-nexus.de/en/hxd/

2.使用Hxd Her Editor 打开excel文件。

3.搜索“DPB=”,并替换成“DPx=”,保存文件。

4.打开保存后的excel文件,Alt+F11 打开VBA 窗口。

5.在VBA project上点击右键重新设置密码。

6.破解成功。

  • 0
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 6
    评论
1、打开任一excel文件 2、在宏里粘贴下面的代码 3、运行下面的代码 4、选择需要破解密码的文件 5、点击“打开” '移除VBA编码保护 Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla&*.xlsx),*.xls;*.xla;*.xlsx", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, False End If End Sub '设置VBA编码保护 Sub SetProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla&*.xlsx),*.xls;*.xla;*.xlsx", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, True End If End Sub 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 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St 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
### 回答1: 如果要移除vbaproject密码,可以按照以下步骤进行操作: 1. 打开需要移除密码vbaproject。 2. 在顶部菜单栏中选择“工具”。 3. 在下拉菜单中选择“宏” > “VB编辑器”。 4. 在“VB编辑器”窗口中选择“工具”。 5. 在下拉菜单中选择“项目属性”。 6. 在“项目属性”窗口中选择“保护性设置”。 7. 在“密码”框中输入正确密码,然后点击“确定”。如果你忘记了密码,可以尝试使用其他方法来移除密码。 8. 在“VB编辑器”窗口中选择“文件”。 9. 在下拉菜单中选择“关闭和返回Microsoft Excel”。 此时,已成功移除vbaproject密码。请注意,这些步骤适用于Microsoft Excel中的vbaproject,使用其他软件可能会有所不同。同时请牢记vbaproject密码以防泄露或遗忘。 ### 回答2: 要移除vbaproject密码,可以按照以下步骤进行操作: 1. 打开需要移除密码vbaproject所在的Excel文件。 2. 在Excel的菜单栏上选择“开发工具”选项卡,然后点击“Visual Basic”按钮,打开Visual Basic for Applications编辑器。 3. 在Visual Basic for Applications编辑器中,选择“项目资源管理器”窗口,找到需要移除密码vbaproject。 4. 右键点击vbaproject,选择“属性”选项。在属性窗口中找到“Protection”属性。 5. 将“Protection”属性设置为0,即将其密码保护设置为无密码。 6. 关闭Visual Basic for Applications编辑器。 7. 保存Excel文件。 完成以上步骤后,vbaproject密码就会被成功移除。重启Excel文件后,在Visual Basic for Applications编辑器中将可以自由编辑和修改vbaproject的代码。 ### 回答3: 要移除VBA项目密码,你可以按照以下方法进行操作: 1. 打开包含VBA项目密码Excel文件。 2. 按下Alt + F11键,打开Visual Basic for Applications(VBA)编辑器。 3. 在VBA编辑器中,找到“项目资源管理器”窗口。如果没有显示该窗口,可以按下Ctrl + R键来显示。 4. 在“项目资源管理器”窗口中,展开“Microsoft Excel对象”文件夹,然后双击该文件夹中的该工作簿。 5. 在右侧的属性窗口中,找到“Locked Project”属性,将其设置为False。 6. 关闭VBA编辑器。 7. 保存并关闭Excel文件。 这样,你已成功移除VBA项目的密码。现在你可以自由地编辑和查看VBA代码了。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 6
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值