スキルアップ・問題解決なら、モーグにおまかせ！

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