EXCEL ツールバーを非表示にするには（VBA)

質問

EXCELを開いた時、ツールバー（standerd)が見えないように（非表示）したいのですが、わかりません。
VBAで下記のように記述するとエラーが返ります。

Private Sub Workbook_Open()
CommandBars(3).Visible = False
End Sub

教えて頂けると幸いです。

回答No.1

masa_019 · ベストアンサー

Private Sub Workbook_Open()
Application.CommandBars(3).Visible = False
End Sub
としてみたらどうですか。

お礼

早々のご回答、感謝いたします。
おっしゃる方法で出来ました。
有難う御座いました。

回答No.3

taocat

こんばんは。
既に的確な回答が出てますが・・・

何故エラーになるかというとApplication オブジェクトを省略しているからです。
それから、このコードは標準モジュールでなくてはならないということはありません。

----------------------------------------------
Private Sub Workbook_Open()
　Application.CommandBars(3).Visible = False
End Sub
----------------------------------------------

以上です。

お礼

>標準モジュールでなくてはならないということはありません。

成程、参考になります。
いろいろ試してみます。
有難う御座いました。

回答No.2

dober-o

まずツールバーの設定はブックやシートの設定ではなくエクセル自体の設定なので
標準モジュールに記述するようにしましょう

また通常は

Application.CommandBars(***).Visible = False　などと記述します

以下応用を含めた記述例です（標準モジュール記述の事）

Sub Auto_open()

　With Application
　　.DisplayFormulaBar = False
　　.DisplayFullScreen = True
　　.CommandBars("Standard").Visible = False
　　.CommandBars("Formatting").Visible = False
　　.CommandBars("Worksheet Menu Bar").Enabled = False
　　.CommandBars("Full Screen").Visible = False
　End With

End Sub

"Worksheet Menu Bar"　はちょっと危険なのであまりお勧めしませんが

参考になれば

お礼

応用例、有難う御座います。
参考になります。
いろいろ試してみます。
たしかに"Worksheet Menu Bar"の操作は
慎重にしないといけないですね。