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

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

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

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

No.1 ベストアンサー 回答者： masa_019 回答日時： 2005/08/26 22:06

Private Sub Workbook_Open()

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

この回答へのお礼

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

お礼日時：2005/08/29 13:14

No.3 回答者： taocat 回答日時： 2005/08/27 00:28

こんばんは。

既に的確な回答が出てますが・・・

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

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

以上です。

この回答へのお礼

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

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

お礼日時：2005/08/29 13:32

No.2 回答者： dober-o 回答日時： 2005/08/26 22:09

まずツールバーの設定はブックやシートの設定ではなくエクセル自体の設定なので

標準モジュールに記述するようにしましょう

また通常は

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"の操作は
慎重にしないといけないですね。

お礼日時：2005/08/29 13:27