求助：VBA代码操作Excel VBE工程（已知密码）

Henry D. Sy

自己研究一下

1. 
   
2. Private Sub CommandButton1_Click()
   
3. '说明:利用SendKey解除VBAProject密码
   
4. '注意事项:执行本模块需要在Excel窗口,不能在VBE窗口
   
5. '解除vbe密码
   
6.     If Workbooks.Count > 1 Then
   
7.         MsgBox "本功能只能允许开启一个工作簿，超过一个就无效了!", vbOKOnly, "请退出其它工作簿!"
   
8.         End
   
9.     End If
   
10.     Set vbProj = ThisWorkbook.VBProject
    
11.     If vbProj.Protection = 1 Then    '判断VBA是否保护
    
12.         With Application
    
13.             .ScreenUpdating = False    '关闭屏幕实时更新
    
14.             .SendKeys "%{F11}", True    'Alt + F11 切换到VBA窗口
    
15.             .SendKeys "%T", True    'ALT + T 工具
    
16.             .SendKeys "e", True    '工具(T)-VBproject属性(E)
    
17.             PW = Sheet1.[B7].Text    '假设密码 在Sheet1.[B7]
    
18.             .SendKeys PW, True    '取消保护密码时需打入原始密码
    
19.             .SendKeys "{ENTER}", True    '按确定钮(预设值)
    
20.             .SendKeys "{ENTER}", True    '按确定钮(预设值)
    
21.             .SendKeys "%{F11}", True    'Alt + F11 切换到Excel窗口
    
22.             .ScreenUpdating = True    '打开屏幕实时更新
    
23.         End With
    
24.     End If
    
25. End Sub
    

复制代码