контекстное меню и примечания

[А)-(дрей]

Доброго времени суток уважаемые форумчане. Подскажите как лучше сделать - есть рабочая книга, при открытии которой требуется авторизация, после авторизации при вводе данных в ячейки создается примечание (не раскрытое в виде красного треугольника в углу) содежащее текст с данными об авторе (выбирается, как логин при авторизации), дате и времени ввода этих данных. Все это делается для того, чтобы было видно кто и когда вводил конкретные данные.
Собственно сам вопрос, как в данной рабочей книги из контекстного меню, вызываемого правой кнопкой при клике на ячейку, убрать пункт "удалить примечание"... либо есть какие либо другие существенные способы по запрету удаления таких примечаний?

[EducatedFool]

Запускаем это:

Sub СписокПунктовКонтекстногоМеню()
    For Each Control In Application.CommandBars("Cell").Controls
        Debug.Print Control.ID, Control.Caption
    Next Control
End Sub

Видим это:

21 &Вырезать
19 &Копировать
22 Вст&авить
755 Сп&ециальная вставка...
3181 &Добавить ячейки...
292 &Удалить...
3125 Очистить содер&жимое
2056 &Изменить примечание
1592 Удалить при&мечание
1593 &Отобразить или скрыть примечание
855 Формат &ячеек...
1966 В&ыбрать из раскрывающегося списка...
5685 Добавить контрольное &значение
7193 &Создать список...
1576 Гиперсс&ылка...
1577 Изменить &гиперссылку...
1015 &Открыть гиперссылку
3626 &Удалить гиперссылку
7685 &Поиск...

Пишем макрос:

Sub УдалитьПунктИзКонтекстногоМеню()
    On Error Resume Next
    Application.CommandBars("Cell").FindControl(, 1592, , , True).Delete
End Sub

Проверяем:

[А)-(дрей]

Мда... как всегда исчерпывающий ответ от EducatedFool )) Спасибо! Для закрытия темы стоит лишь дабавить, что если будут проблемы с возвратом к прежнему состоянию меню нужно воспользоваться следующим кодом, предоставленным опять же EducatedFool :

Sub ВосстановитьВсеКонтекстноеМеню()
    Dim cb As CommandBar
    For Each cb In Application.CommandBars
        If cb.Type = msoBarTypePopup Then cb.Enabled = True: cb.Reset
    Next
End Sub

[Оксана33]

Sub СписокПунктовКонтекстногоМеню()
    For Each Control In Application.CommandBars("Cell").Controls
        Debug.Print Control.ID, Control.Caption
    Next Control
End Sub

EducatedFool, запускала Ваш макрос и не срабатывает. В чем дело - не подскажите?

[IgorGO]

а Вы откройте Immadiate Window (Ctrl+G) все, что происходило сосредоточено там.

[Оксана33]

Сообщение от IgorGO

а Вы откройте Immadiate Window (Ctrl+G) все, что происходило сосредоточено там.

а где его найти?

[IgorGO]

ага, извините Вы же макрос как-то запускали? в окне редоктора (БВЕ) жмите Ctrl+G увидите это самое окно, выполните макрос, в окне увидите результаты его работы

[Оксана33]

Сообщение от IgorGO

ага, извините Вы же макрос как-то запускали? в окне редоктора (БВЕ) жмите Ctrl+G увидите это самое окно, выполните макрос, в окне увидите результаты его работы

Cпасибо большущее, про Ctrl+G в окне редоктора не сообразила