Неактивное меню

[SAS888]

Спасибо. Но это не совсем то. Попробуйте выполнить следующий макрос.
Количество вложений и панелей взято условно.

Sub ListMenuInfo()

    Dim Row As Integer, q As Long
    Dim Menu As CommandBarControl
    Dim MenuItem As CommandBarControl
    Dim SubMenuItem As CommandBarControl
    Dim SubSubMenuItem As CommandBarControl
    
    Cells.ClearContents
    Row = 1
    For q = 1 To 300
        On Error Resume Next
        For Each Menu In CommandBars(q).Controls
            For Each MenuItem In Menu.Controls
                For Each SubMenuItem In MenuItem.Controls
                    For Each SubSubMenuItem In MenuItem.Controls
                        Cells(Row, 1) = Menu.Caption
                        Cells(Row, 2) = Menu.ID
                        Cells(Row, 3) = MenuItem.Caption
                        Cells(Row, 4) = MenuItem.ID
                        Cells(Row, 5) = SubMenuItem.Caption
                        Cells(Row, 6) = SubMenuItem.ID
                        Cells(Row, 7) = SubSubMenuItem.Caption
                        Cells(Row, 8) = SubSubMenuItem.ID
                        Row = Row + 1
                    Next SubSubMenuItem
                Next SubMenuItem
            Next MenuItem
        Next Menu
    Next q
    
End Sub

[VictorM]

Нда, не совсем то...
SAS888, спасибо за макрос. Нужная вещь!

[Mint86]

Вот здесьhttp://www.rondebruin.nl/menuid.htm еще есть про контролы.
Так же здесьhttp://www.erlandsendata.no/english/...oadcommandbars есть макрос похожий на тот что приводил в пример SAS888

[Mint86]

Вот достаточно полный перечень ID http://support.microsoft.com/kb/213552
Но к сожалению нет инфы об ID "галочек"

[SAS888]

Большое спасибо. Более наглядно, чем в моем примере макроса.
Зная ID команд, можно перехватывать практически любые события, которых нет в стандартном наборе VBA Excel.

[VictorM]

Почему-то не могу перейти по ссылкам в пост №13 Mint86 (

[SAS888]

Потому, что там что-то не так с тэгами. Скопируй текст ссылки и вставь в браузер.

[VictorM]

SAS888, спасибо. Все в нормально получилось.

[Mint86]

Упс.. прошу прощения за ошибочку. Исправил