「Alt+F11」でVBE画面を起動させないようにするには

質問

とあるサンプルファイルにて実際あった機能なのですが
Alt+F11でVBE画面が開けないし、ツールバーにも「ツール」がありませんでした。
自分でもこのプロテクトをかけたいのですが
alt+F11を押してもVBE画面を開けないようにするにはどうすればいいですか？

回答No.2

imogasi · ベストアンサー

ALT+F11を働くするコードは回答が出た。それで、
ツールを働かなくするとかメニューバーを非表示にする
Sub test03()
'メニューバーの表示／非表示の切り替え
'（True=表示,False=非表示）
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'False 'True
'ツールを働かなくする
Application.CommandBars("Worksheet Menu Bar").Controls(6).Enabled = False 'True
End Sub
ーーー
ツールのマクロ（メニュー）だけ働かない
Sub DelMenu()
Dim DefMenu1 As Object
On Error Resume Next
Set DefMenu1 = CommandBars("Worksheet Menu bar").Controls("ツール(&T)")
DefMenu1.Enabled = True 'False
DefMenu1.Controls("マクロ(&M)").Enabled = False 'TRUE
End Sub
ーーー
Deleteも同じようなコードで出来るかもしれないが、復旧が面倒かもしれないので略。
興味あれば、Googleで「"Worksheet Menu Bar"　VBA　DELETE」などで照会。

お礼

ありがとうございました。参考になりました。

回答No.1

misatoanna

オプションなどで設定する方法は知りません。
Auto_Open か Workbook_Open モジュールに、次の１行を記述しておくのは
いかがでしょうか。

Application.OnKey "%{F11}", ""

解除する場合は、
Application.OnKey "%{F11}"

VBEditor のProjectにパスワードをかけておけば、VBEditorを隠さなくても
支障ない気がするのですが。

お礼

ありがとうございました。