Тема: Сделать чтобы не показывало контекстное меню
если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???
Re: Сделать чтобы не показывало контекстное меню
Ципихович Эндрю пишет:
если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???
Добрый день!
В Excel VBA работает следующая конструкция:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Для word делать не приходилось, но, думаю, вот тут можно прочитать подробнее внешняя ссылка
- Alex_Gur
- Модератор
- Неактивен
Re: Сделать чтобы не показывало контекстное меню
Ципихович Эндрю пишет:
если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???
Добрый день, Эндрю!
В этой ветке мы обсуждали вопрос, как в Word отключить действие левой клавиши мыши:
http://wordexpert.ru/forum/viewtopic.php?id=1167
Кажется, в результате обсуждения эксперты пришли к убеждению, что действие этих клавиш определяется не в Word, а в операционной системе.
Некоторые идеи по данному вопросу можно найти здесь:
внешняя ссылка
К сожалению, отключить действие клавиши мыши нам пока не удалось. Если вам это удастся, сообщите, пожалуйста.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Re: Сделать чтобы не показывало контекстное меню
Alex_Gur пишет:
К сожалению, отключить действие клавиши мыши нам пока не удалось. Если вам это удастся, сообщите, пожалуйста.
Alex_Gur, добрый день!
В word есть возможность перехватывать множество событий, в том числе нажатие правой кнопки мыши.
В качестве примера подготовил документ, можете посмотреть во вложении. Исходный код открыт.
Ципихович Эндрю, добрый день!
Посмотрите вложенный документ, там готовое решение.
Re: Сделать чтобы не показывало контекстное меню
Qra пишет:
можете посмотреть во вложении.
Прошу прощения, файлик сразу не приложился. Исправляюсь.
- Alex_Gur
- Модератор
- Неактивен
Re: Сделать чтобы не показывало контекстное меню
Qra пишет:
Qra пишет:можете посмотреть во вложении.
Прошу прощения, файлик сразу не приложился. Исправляюсь.
Уважаемый Qra! Интересно.
Но, увы, я запустил приложенный файл в Word 2010 в режиме Включить все макросы. Правая клавиша мыши не отключилась.
Более того, не могу найти ваш макрос App_WindowBeforeRightClick в списке макросов Word, чтобы его применить.
Нет ли такой же функции для отмены левой кнопки мыши?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Re: Сделать чтобы не показывало контекстное меню
Alex_Gur пишет:
Но, увы, я запустил приложенный файл в Word 2010 в режиме Включить все макросы. Правая клавиша мыши не отключилась.
Более того, не могу найти ваш макрос App_WindowBeforeRightClick в списке макросов Word, чтобы его применить.Нет ли такой же функции для отмены левой кнопки мыши?
Попробуйте повторно загрузить документ. У меня тоже Word 2010 и все работает.
Поскольку у вы не находите макрос могу предположить, что проблема именно с системой безопасности.
Макрос лежит в Microsoft Word Objects->ThisDocument
По поводу отмены левой кнопки мыши встроенного средства Office нет. Честно говоря, мне сложно представить ситуацию, в которой было бы полезно сделать недоступной ЛКМ.
- Alex_Gur
- Модератор
- Неактивен
Re: Сделать чтобы не показывало контекстное меню
По поводу отмены левой кнопки мыши встроенного средства Office нет. Честно говоря, мне сложно представить ситуацию, в которой было бы полезно сделать недоступной ЛКМ.
В приведенной выше ветке:
http://wordexpert.ru/forum/viewtopic.php?id=1167
ставился вопрос об отключении вывода на экран окна Справочные материалы по сочетанию клавиш Alt+левая кнопка мыши.
Может у вас есть какие-нибудь идеи, как отключить вывод этого окна?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
- Alex_Gur
- Модератор
- Неактивен
Re: Сделать чтобы не показывало контекстное меню
Qra пишет:
Alex_Gur пишет:Более того, не могу найти ваш макрос App_WindowBeforeRightClick в списке макросов Word, чтобы его применить.
Попробуйте повторно загрузить документ. У меня тоже Word 2010 и все работает.
Поскольку у вы не находите макрос могу предположить, что проблема именно с системой безопасности.
Макрос лежит в Microsoft Word Objects->ThisDocument
В Microsoft Word Objects->ThisDocument макрос есть, но в списке макросов Word (закладка Разработчик - Макросы) мне его увидеть не удалось.
А у вас он там виден?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
Re: Сделать чтобы не показывало контекстное меню
Alex_Gur пишет:
В Microsoft Word Objects->ThisDocument макрос есть, но в списке макросов Word (закладка Разработчик - Макросы) мне его увидеть не удалось.
А у вас он там виден?
Нет, там он отображаться не должен.
Это макросы, которые выполняются не по ручному запуску, а автоматически при открытии документа и при нажатии ПКМ.
Re: Сделать чтобы не показывало контекстное меню
Qra
1 - у меня Ворд 2003
2 - видя как идёт всё со скрипом выложите просто текст макроса
Re: Сделать чтобы не показывало контекстное меню
Ципихович Эндрю пишет:
Qra
1 - у меня Ворд 2003
2 - видя как идёт всё со скрипом выложите просто текст макроса
Скрипа нет, всё работает.
Public WithEvents App As Word.Application
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
Cancel = True
End Sub
Private Sub Document_Open()
Set App = Application
End SubКод вставлять в Word Objects->ThisDocument
Re: Сделать чтобы не показывало контекстное меню
Спасибо, всё ОК