VBA密码手工去除

测试文件:https://www.lanzous.com/iat245a

 

1.将excel文件后缀改为.zip格式,解压到文件夹中。

 

2.找到xl文件夹,打开里面的vbaProject.bin二进制文件。

 

3.将DPB修改为DPX

 

4.保存后,重新将文件夹压缩为.zip,修改后缀为.xlsm,打开。

 

5.提示,无效DPX,不管继续加载,打开工具--》VBProject 属性--》保护,重新设置密码。

 

6.保存后,重新打开Excel文件,输入密码就能看见代码了。

 

  • 1
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
撤消vba工程密码 vba的过程可以通过以下步骤完成。 首先,在弹出的VBA编辑器中打开需要撤消密码vba工程文档。然后,按下“ALT+F11”快捷键,打开VBA编辑器界面。 接下来,右键单击工程名称,选择“模块”选项,单击“插入”按钮,选择“菜单模块”选项。在弹出的“新建菜单模块”窗口中,输入响应的VBA代码,以及新的未加密的密码。 然后,添加以下代码到VBA编辑器窗口中的“菜单模块”中: ``` Sub CrackVBAProjectPassword() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 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 ActiveWorkbook.ProtectStructure = False Then Continue = True exit for End If Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For End Sub ``` 运行插入的VB代码。VBA编辑器窗口中的“立即窗口”将显示新的未加密密码。通过此密码即可解除vba工程密码。 最后,输入新的密码,然后保存并重新打开vba工程文档即可生效,无需使用密码即可修改vba工程的代码和数据。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值