|
カスタマイズされたワークブックを作成したい場合、不必要なコマンドバーは消しておきたいものです。 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プロパティがありますが、再表示の際に、使用できるすべてのコマンドバーが表示されてしまいます。 |