VBAでエクセルの上部メニューを非表示にしたい。

すみません、誰かご教授頂けませんでしょうか？
エクセルの上部のボタン操作表示を非表示にしようとして、
下記の様に記述しましたが、この記述だと、今開いているワークブック
全部が非表示になってしまいます。
マクロを記述しているワークブックだけ、非表示にする方法はありませんでしょうか。
すみませんが、宜しくお願いします。

Sub メニュー非表示()

ThisWorkbook.Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

End Sub

No.1 ベストアンサー 回答者： m3_maki 回答日時： 2013/09/10 08:38

Excel は あまり得意じゃないので、もっと良い方法があるかもしれませんが

マクロを記述しているワークブック の
ThisWorkbook に下記のコードでいかがでしょうか?


Private Sub Workbook_Activate()
　　メニュー非表示
End Sub

Private Sub Workbook_Deactivate()
　　メニュー表示
End Sub

Private Sub Workbook_Open()
　　メニュー非表示
End Sub

Private Sub メニュー非表示()
　　Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Private Sub メニュー表示()
　　Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

この回答へのお礼

m3_maki様

返信が遅れまして申し訳ございませんでした。
ご回答ありがとうございます。
無事、解決する事が出来ました。また、何か有りましたら宜しくお願いします。

お礼日時：2013/09/15 22:06