VBE画面を閉じるコード

alt+F11で、VBE画面を開いていますが、

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

で、どこかのセルをクリックしたら、ＶＢＥ画面を閉じたいのですが、コードを教えてください。
エクセルのアプリケーションのみ表示させたいです。

添付画像は、
エクセル（上）
ＶＢＥ（下）
が開いてますが、ＶＢＥをＶＢＡコードを実行して閉じたいです。

No.2 ベストアンサー 回答者： xls88 回答日時： 2013/04/20 09:49

これでどうでしょうか？

If Target.Address <> "$A$1" Then Exit Sub
Application.VBE.MainWindow.Visible = False

この回答へのお礼

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

お礼日時：2013/04/29 11:11

No.1 回答者： DexMachina 回答日時： 2013/04/20 09:41

『参照設定』を追加してもよい場合(及びインテリセンスを有効に

したい場合)は、「Microsoft Visual Basic ｆｏｒ Application
Extensivity x.x」のチェックをオンにした上で、以下のコードで
実現できます(サンプル簡素化のためエラー処理は省略)：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　'ここの型指定に参照設定が必要
　　Dim oVBE As VBE, Wdw As VBIDE.Window

　　Set oVBE = Application.VBE
　　Set Wdw = oVBE.MainWindow
　　Wdw.Visible = False

　　'念のため、明示的にメモリを解放
　　Set Wdw = Nothing
　　Set oVBE = Nothing

End Sub


『参照設定』を追加しない場合は、以下のコードになります。
(実際には、変数宣言での型指定を変更するのみでOk)：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　Dim oVBE As Object, Wdw As Object

　　Set oVBE = Application.VBE
　　Set Wdw = oVBE.MainWindow
　　Wdw.Visible = False

　　Set Wdw = Nothing
　　Set oVBE = Nothing

End Sub


・・・以上です。

この回答へのお礼

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

お礼日時：2013/04/29 11:11