用代码给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	%（百分号）