リボンを非表示、2003以前ならメニューを非表示

最終更新日：2013-07-21

リボンを非表示、2003以前ならメニューを非表示

Excel2007以降のリボンは幅を取られて邪魔な場合があります、

特に業務アプリの場合は、リボンを消したい事も多いと思います。

リボンを消すだけなら、

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

消えているリボンを表示する場合は、

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

しかし、まだExcel2003以前が混在している環境の場合、

Excel2003以前では、上記コードを実行しても何も起こりません。

Excel2003以前なら、メニューバーとツールバーを消したい場合は、

Dim cb As CommandBarPopup
For Each cb In Application.CommandBars("Worksheet Menu Bar").Controls
　　cb.Delete
Next

cb.Delete
は、
cb.Visible = False
でも良いです。

メニューを再表示する場合は、

Application.CommandBars("Worksheet Menu Bar").Reset

2003以前の場合は、ツールバーもありますので、

ツールバーを全て消す場合は、

Dim tb As Toolbar
For Each tb In Toolbars
　　If tb.Visible = True Then
　　　　tb.Visible = False
　　End If
Next

ツールバーの再表示は、

どのツールバーを表示するかが問題となります。

上記のコードのFalseをTrueで実行すると、

全てのツールバーが表示されてしまいます。

もし消したツールバーのみ表示したい場合は、

上記で消したツールバーを、どこかに保存しておく必要があります。

以上を踏まえて、さらにバージョンを判断して実行するようにすると、

Sub sample()
If CInt(Application.Version) <= 11 Then
　　Call sample2003
Else
　　Call sample2007
End If
End Sub

Sub sample2007()
　　Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Sub sample2003()
　　Dim cb As CommandBarPopup
　　For Each cb In Application.CommandBars("Worksheet Menu Bar").Controls
　　　　cb.Visible = False
　　Next
　　Dim tb As Toolbar
　　For Each tb In Toolbars
　　　　If tb.Visible = True Then
　　　　　　tb.Visible = False
　　　　End If
　　Next
End Sub

表示する場合は、
False
を
True
に変更したプロシージャーを作成するか、引数でTrue,Falseを渡すようにして下さい。