用代码给VBA添加工程密码

　　VBA代码，给VBA添加工程密码
　

1. Sub AddVBProjectProtection()
   
2. On Error Resume Next
   
3. Set Obj = Application.VBE.ActiveVBProject ' 检查是否勾选VBA工程访问权限
   
4. If Err.Number <> 0 Then MsgBox " 请勾选信任对VBA工程对象模型的访问": Exit Sub
   
5. If Application.VBE.MainWindow.Visible Then Application.VBE.MainWindow.Visible = False
   
6. Dim pw As Long
   
7. pw = "123"
   
8. Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
   
9. 
   
10. Application.SendKeys "^{TAB}" '切换到密码页
    
11. Application.SendKeys "{107}" '勾选查看工程密码
    
12. Application.SendKeys "{TAB}" '换到输入密码
    
13. Application.SendKeys pw '输入密码
    
14. Application.SendKeys "{TAB}" '跳到下一个
    
15. Application.SendKeys pw '输入密码
    
16. Application.SendKeys "{ENTER}" '确定
    
17. End Sub

复制代码

小键盘按键对应代码

0	1	2	3	4	5	6	7	8	9	*	+		-
{96}	{97}	{98}	{99}	{100}	{101}	{102}	{103}	{104}	{105}	{106}	{107}	{108}	{109}

键盘按键对应代码

按键	代码
BACKSPACE	{BACKSPACE}或{BS}
Break	{BREAK}
Caps Lock	{CAPSLOCK}
Clear	{CLEAR}
Delete 或 Del	{DELETE}或{DEL}
向下键	{DOWN}
End	{END}
Enter（数字小键盘）	{ENTER}
Enter	~(代)
Esc	{ESCAPE}或{ESC}
Help	{HELP}
Home	{HOME}
Ins	{INSERT}
向左键	{LEFT}
Num Lock	{NUMLOCK}
PageDown	{PGDN}
PageUp	{PGUP}
Return	{RETURN}
向右键	{RIGHT}
Scroll Lock	{SCROLLLOCK}
Tab	{TAB}
向上键	{UP}
F1 到 F15	通过{F15}{F1}

还可以指定键加 shift 键或 ctrl 键 ALT。若要指定键与其他键或键组合，请使用下表。

要组合的键	在键代码之前添加
Shift	+（加号）
Ctrl	^（插入符号）
Alt	%（百分号）