用代码给VBA添加工程密码

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

Sub AddVBProjectProtection()
   On Error Resume Next
   Set Obj = Application.VBE.ActiveVBProject    ' 检查是否勾选VBA工程访问权限
   If Err.Number <> 0 Then MsgBox " 请勾选信任对VBA工程对象模型的访问": Exit Sub
   If Application.VBE.MainWindow.Visible Then Application.VBE.MainWindow.Visible = False
   Dim pw As Long
   pw = "123"
   Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
  
   Application.SendKeys "^{TAB}"  '切换到密码页
   Application.SendKeys "{107}"   '勾选查看工程密码
   Application.SendKeys "{TAB}"   '换到输入密码
   Application.SendKeys pw        '输入密码
   Application.SendKeys "{TAB}"   '跳到下一个
   Application.SendKeys pw        '输入密码
   Application.SendKeys "{ENTER}" '确定
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	%（百分号）