如何在知道工程密码的情况下通过VBA取消指定文件工程密码

aecn

改一下问题，如题：


如何在知道工程密码的情况下通过VBA取消指定文件工程密码？

aecn

实现不了吗？我再来顶一下吧

aman1516

aecn 发表于 2023-1-2 09:36
实现不了吗？我再来顶一下吧

用 SendKeys 试试：

1. Public Sub UnprotectVBAProject()
   
2. On Error GoTo ErrHandler
   
3. Const conPW As String = "VBAPassword"    '改为实际已知的VBA工程密码
   
4. Call SendKeys("%{F11}", True)
   
5. Call SendKeys("%(V)P", True)
   
6. Call SendKeys("{PGUP 5}", True)
   
7. Call SendKeys("{ENTER}" & conPW & "{ENTER}", True)
   
8. ExitProcedure:
   
9. Exit Sub
   
10. ErrHandler:
    
11. Select Case Err.Number
    
12. Case Else
    
13. Application.ScreenUpdating = True
    
14. MsgBox Err.Number & vbNewLine & Err.Description, vbCritical
    
15. Resume ExitProcedure
    
16. Resume
    
17. End Select
    
18. End Sub

复制代码

aman1516

取消，可参考下这个贴：
利用SendKey解除VBAProject密码
https://club.excelhome.net/thread-1555158-1-1.html

aecn

aman1516 发表于 2023-1-2 13:11
用 SendKeys 试试：

已解决，感谢提供思路