Option Compare Database
Option Explicit
'CommandBarsを特定する場合はNameプロパティに指定された文字列を使います。
'NameLocalプロパティに指定された文字列を使うと失敗します。
'例)    CommandBars("Menu Bar").Enabled = True  成功
'　　   CommandBars("ﾒﾆｭｰﾊﾞｰ").Enabled = True   失敗

Private Sub トグル1_Click()
    'Menu Barを消します。Visibleプロパティを使うと失敗します。
    Dim b As Boolean
    
    b = Not (トグル1)
    トグル1.Caption = "Menu Barを" & IIf(b, "消す", "表示")
    CommandBars("Menu Bar").Enabled = b
End Sub

Private Sub トグル2_Click()
    'Visibleプロパティを使ってCommandBarsを消します。
    'Menu Bar右クリックで表示されるCommandBarsリストには表示されます。
    Dim b As Boolean
    
    b = Not (トグル2)
    トグル2.Caption = "CommandBarsを" & IIf(b, "消す", "表示") & "（Visible)"
    CommandBars("Menu Bar").Enabled = True
    CommandBars("Database").Visible = b
    CommandBars("Web").Visible = b
End Sub

Private Sub トグル3_Click()
    'Enabledプロパティを使ってCommandBarsを消します。
    'Menu Bar右クリックで表示されるCommandBarsリストからも削除されます。
    Dim b As Boolean
    
    b = Not (トグル3)
    トグル3.Caption = "CommandBarsを" & IIf(b, "消す", "表示") & "（Enabled)"
    CommandBars("Menu Bar").Enabled = True
    CommandBars("Database").Enabled = b
    CommandBars("Web").Enabled = b
End Sub

Private Sub トグル4_Click()
    Dim CmdBar As Object
    Dim strSource As String
    
    MsgBox CommandBars.Count & "個のCommandBarsがあります。"
    For Each CmdBar In CommandBars
        With CmdBar
            strSource = strSource & Left$(.Name & Space$(35), 35) & .NameLocal & vbCrLf
        End With
    Next
    txt5 = strSource
End Sub