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 |
%（百分號） |