撤消vba工程密码 vba
时间: 2023-05-16 08:03:58 浏览: 371
撤消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工程的代码和数据。