Option Explicit

Dim CB   As CommandBar          ' переменная  "панель инструментов"
Dim CBC  As CommandBarControl   ' переменная  "элемент управления"
Dim CBB  As CommandBarButton    ' переменная  "кнопка панели инструментов"
Dim CBCs As CommandBarControls  ' переменная  "элементЫ управления"

Const ConstID As Integer =  2188  ' ID команды "Сообщение (как вложение)..."

Sub GetControlID()
' определение ID команды с выводом на лист MS Excel
	Dim RowId As Integer
	Dim CB As CommandBar
	Dim CBC As CommandBarControl
	    RowId =  2 
	    For Each CB In CommandBars
	        Cells(RowId,  1 ) = CB.Name
	        For Each CBC In CommandBars(CB.Name).Controls
	            Cells(RowId,  2 ) = CBC.ID
	            Cells(RowId,  3 ) = CBC.Caption
	            RowId = RowId +  1 
	        Next
	    Next
End Sub


Sub cmd_Off()
' отключение команды
    For Each CB In CommandBars
        For Each CBC In CommandBars(CB.Name).Controls
            If CBC.ID = ConstID Then
                CBC.Enabled = False
            End If
        Next
    Next
    
    Set CBC = Nothing
    Set CB = Nothing

    Set CBCs = Application.CommandBars.FindControls(ID:=ConstID)
    For Each CBB In CBCs
        CBB.Enabled = False
    Next CBB

    Set CBCs = Nothing
    Set CBB = Nothing  
End Sub


Sub cmd_On()
' включение команды
    For Each CB In CommandBars
        For Each CBC In CommandBars(CB.Name).Controls
            If CBC.ID = ConstID Then
                CBC.Enabled = True
            End If
        Next
    Next
    
    Set CBC = Nothing
    Set CB = Nothing

    Set CBCs = Application.CommandBars.FindControls(ID:=ConstID)
    For Each CBB In CBCs
        CBB.Enabled = True
    Next CBB

    Set CBCs = Nothing
    Set CBB = Nothing    
End Sub