powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / замена контекстного меню в Екселе
5 сообщений из 5, страница 1 из 1
замена контекстного меню в Екселе
    #34408216
guess what
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Коллеги!
...
Рейтинг: 0 / 0
замена контекстного меню в Екселе
    #34408234
guess what
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите плиз со следующей проблемой.
Нужно переопределить контекстное меню в Екселе. На событие BeforeRightClick вешаю код, который в точности это и делает. Но в том случае, если я выделяю часть текста в ячейке и вызываю контекстное меню через правую кнопку мыши, это событие уже не отрабатывает. Как добраться до контекстного меню в этом случае?
Спасибо.
...
Рейтинг: 0 / 0
замена контекстного меню в Екселе
    #34413207
ADSemenov.ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
____ Самое простое — поставьте защиту только на эти ячейки и защитите лист. При записи в ячейки снимайте программно защиту.

____ Второй вариант сложный. — По событию SelectChange определяете ячейку, для которой необходимо заменить встроеное меню, скрываете в нём встроенные команды и добавляете свои. Соответственно, для иной ячейки восстанавливаете всё обратно.
____ Сложно найти адрес этого popup-меню. Я в этом случае писал программульку вывода в ячейки списка встроенных меню и глазками искал в них необходимое мне. При этом я не знаю, одинакова ли эта информация для разных версий Excel.

Praemonitus praemunitus
...
Рейтинг: 0 / 0
замена контекстного меню в Екселе
    #34413351
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
три вещи:

1) наск. мне известно, в VBA нет события возникающего в режиме редактирования ячейки (это насчет перехвата меню с пом. BeforeRightClick или SelectChange)

2) меню, которое ты ищешь называется "Formula Bar", например:

Код: plaintext
1.
2.
3.
4.
5.
Sub test()
    With Application.CommandBars("Formula Bar")
        '.Controls.Item("&Copy").Enabled = False 'для англ. версии
        .FindControl(,  19 ).Enabled = False 'для всех версий
    End With
End Sub

3) список коммандбар контролов (правда слегка подустаревший):
http://support.microsoft.com/default.aspx/kb/213552/en-us


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
замена контекстного меню в Екселе
    #34416354
guess what
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
то есть можно попробовать при переходе фокуса в нужную ячейку подменять данное меню, а при выходе восстанавливать? похоже на решение, попробую, спасибо
а вариант с защитой ячеек я не понял честно говоря
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / замена контекстного меню в Екселе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]