忘记CAD VBA工程密码,如何去掉

http://blog.163.com/mudong@126/blog/static/369751952014026492735/
一、下载二进制文本编辑器:Hex Editor II(二进制、十六进制文本编辑器)V2.1.0绿色免费版
http://www.xiazaiba.com/html/2534.html
二、用编辑器打开VBA工程,查找DPB=,并修改为DPx=。存盘退出。
三、进入CAD加载VBA工程,一路确认,即可重新打开VBA工程。
四、进入代码视图时,提示错误,无法进入代码视图。
五、打开工程属性,重新设置工程密码,即可进入代码视图。

  • 2
    点赞
  • 7
    收藏
    觉得还不错? 一键收藏
  • 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、付费专栏及课程。

余额充值