Excel 已知VBA工程密码，用代码实现自动解密的方法

　　已知VBA工程密码为“123”，用代码实现自动解密VBA工程的方法

代码一，需要引用Microsoft Visual Basic For Application Extensibility 5.3

1. 
   
2. Sub OpenVBPrjWithPassword()
   
3. '引用 Microsoft Visual Basic For Application Extensibility 5.3
   
4. Dim strPassWord As String
   
5. '关闭VBE主窗口
   
6. Application.VBE.MainWindow.Visible = False
   
7. strPassWord = "123" '密码字符串
   
8. '判断是否设置了工程保护,使用密码打开工程
   
9. If ActiveWorkbook.VBProject.Protection = vbext_pp_locked Then
   
10. Application.VBE.CommandBars.FindControl(ID:=2578).Execute
    
11. SendKeys strPassWord & "{ENTER}{TAB}{ENTER}"
    
12. DoEvents '更新工程状态
    
13. End If
    
14. '要执行其它的操作….
    
15. '.....
    
16. End Sub

复制代码

代码二，不需要引用

1. Sub OpenVBPrjWithPassword()
   
2. Dim strPassWord As String
   
3. '关闭VBE主窗口
   
4. Application.VBE.MainWindow.Visible = False
   
5. strPassWord = "123" '密码字符串
   
6. '判断是否设置了工程保护,使用密码打开工程
   
7. If ActiveWorkbook.VBProject.Protection = 1 Then
   
8. Application.VBE.CommandBars.FindControl(ID:=2578).Execute
   
9. SendKeys strPassWord & "{ENTER}{TAB}{ENTER}"
   
10. DoEvents '更新工程状态
    
11. End If
    
12. '要执行其它的操作….
    
13. '.....
    
14. End Sub

复制代码