Office中国论坛/Access中国论坛

标题: 求助：VBA代码操作Excel VBE工程（已知密码） [打印本页]

---

作者: CNPAT    时间: 2016-6-23 09:17
标题: 求助：VBA代码操作Excel VBE工程（已知密码）
大家好!请教个问题：
求助：VBA代码操作Excel VBE工程（已知密码）
如何在文件A中写VBA代码，实现对Excel VBE工程的操作：
1、打开B文件VBE工程界面，工程查看密码为：111
2、更改B文件VBE工程密码为：123
3、取消B文件VBE工程查看密码

注释：
1、A、B文件为同一文件夹下
2、A为excel文件，扩展名为.xls
3、B为excel文件，扩展名为.xls

---

作者: Henry D. Sy    时间: 2016-9-12 09:05
自己研究一下

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
    

复制代码

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3