EnabledプロパティにFalseを設定したコマンドバー、コマンドバー
コントロールは、使用できない状態になります。コマンドバーの場合
には非表示になり、コマンドバーコントロールの場合には、ボタンが
淡色表示となって使用不可な状態を示します。


　構文　Object.Enable

　設定項目　　内容
　Object　　　CommandBar,CommandBarButton,CommandBarComboBox,
              CommandBarControl,CommandBarPopup[省略不可]


　次のサンプル1は、すべてのコマンドバーの使用/使用不可能を切り
替えます。

●サンプル1●

Sub EnableSamp1()

    Dim myCB As CommandBar

    For Each myCB In CommandBars
       '---使用可能/使用不可能を切り替える
       myCB.Enabled = Not myCB.Enabled
    Next

End Sub

●解説●

　このサンプルを実行すると、すべてのツールバーが非表示となり、
メニューバーも非表示となります。また、ワークシート上で右クリック
したときなどに表示されるショートカットメニューも表示されません。
元の状態に戻すには、再度実行してください。

　ツールバーを表示させたまま、各コントロールの機能を使用できない
状態にしたい場合には、次のサンプル2を参考にしてください。

●サンプル2●

Sub EnableSamp2()

    Dim myCBCtrl As CommandBarControl

    For Each myCBCtrl In CommandBars("Standard").Controls
      '---使用可能/使用不可能を切り替える
      myCBCtrl.Enabled = Not myCBCtrl.Enabled
    Next

End Sub

●解説●

　1度目の実行で「標準」ツールバーのすべてのコントロールが淡色表示
に変わり、使用できない状態になります。元に戻すには、再度実行してく
ださい。