Excel 2003, как задать макрос в меню правой клавишей мыши - VB

Формулировка задачи:

Задача - надо выбрать в меню правой клавиши мыши макрос, который будет работать, если ячейка НЕ защищена, иначе макрос не активен.
на панели инструментов могу, но не знаю как обратится к меню (по клику правой клавиши мыши).
Спасибо

Решение задачи: «Excel 2003, как задать макрос в меню правой клавишей мыши»

textual
                            Листинг программы 
                        

                            Dim cmBar As CommandBar, cmb As CommandBarControl
Dim i As Long
For Each cmBar In Application.CommandBars
    If cmBar.Type = msoBarTypePopup Then
        i = i + 1
        ActiveSheet.Cells(i, 2) = cmBar.Name
        ActiveSheet.Cells(i, 1) = cmBar.Index
    End If
Next

                        