excel2000でのマクロでの非表示の設定

質問

excel2000でマクロでのツールバーのすべてを
非表示にする方法を教えてください。

回答No.1

taocat · ベストアンサー

こんばんは。

ツールバー全てということは、
メニューバーは表示したままでいいということですね。

---------------------------------------------
●一番簡単な方法は全画面表示にすることです。

Sub FullScrn()
　　Application.DisplayFullScreen = True
End Sub

----------------------------------------------
●ツールバーを一つずつ非表示にする方法

Sub BarOff()
　Dim cmdBar As CommandBar
　For Each cmdBar In CommandBars
　　If cmdBar.Visible And cmdBar.Name <> "Worksheet Menu Bar" Then
　　　　cmdBar.Visible = False
　　End If
　Next cmdBar
End Sub

-----------------------------------------------
●メニューバーも同時に非表示にしたければ

Sub ALLBarOff()
　Dim cmdBar As CommandBar
　For Each cmdBar In CommandBars
　　If cmdBar.Name = "Worksheet Menu Bar" Then
　　　　cmdBar.Enabled = False
　　Else
　　　　If cmdBar.visible Then
　　　　　　cmdBar.Visible = False
　　　　End If
　　End If
　Next cmdBar
End Sub

-----------------------------------------------

以上です