既存のコマンドバーを消す

カスタマイズされたワークブックを作成したい場合、不必要なコマンドバーは消しておきたいものです。 Enableプロパティが有効ですが、このコードの注意点はExcel終了時に自動的にコマンドバーを再表示させる必要があることです。そうしなければ次回Excelを起動するとコマンドバーが全く無い、タイトルバーだけの状態になってしまいます。

Sub 既存のコマンドバーを消す()
  On Error Resume Next
  Dim CB As CommandBar
  For Each CB In Application.CommandBars
    CB.Enabled = False
  Next
  Application.DisplayFormulaBar = False         ' 必要であれば数式バーも消す
End Sub

Sub 既存のコマンドバーを再表示()
  On Error Resume Next
  Dim CB As CommandBar
  For Each CB In Application.CommandBars
    CB.Enabled = True
  Next
  Application.DisplayFormulaBar = True          ' 必要であれば
End Sub

以下はThisWorkbookモジュール内に記述してください

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  既存のコマンドバーを再表示
End Sub

Private Sub Workbook_Open()
  既存のコマンドバーを消す
End Sub

これと似たものにVisibleプロパティがありますが、再表示の際に、使用できるすべてのコマンドバーが表示されてしまいます。