リボンを非表示、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