1

Тема: Сделать чтобы не показывало контекстное меню

если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???

2

Re: Сделать чтобы не показывало контекстное меню

Ципихович Эндрю пишет:

если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???

Добрый день!
В Excel VBA работает следующая конструкция:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

Для word делать не приходилось, но, думаю, вот тут можно прочитать подробнее внешняя ссылка

3

Re: Сделать чтобы не показывало контекстное меню

Ципихович Эндрю пишет:

если на событие нажатие правой клавиши мыши повесить макрос
тогда как условие поставить чтобы если нужно не показывало контекстное меню???

Добрый день, Эндрю!
В этой ветке мы обсуждали вопрос, как в Word отключить действие левой клавиши мыши:
http://wordexpert.ru/forum/viewtopic.php?id=1167

Кажется, в результате обсуждения эксперты пришли к убеждению, что действие этих клавиш определяется не в Word, а в операционной системе.
Некоторые идеи по данному вопросу можно найти здесь:
внешняя ссылка

К сожалению, отключить действие  клавиши мыши нам пока не удалось. Если вам это удастся, сообщите, пожалуйста.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4

Re: Сделать чтобы не показывало контекстное меню

Alex_Gur пишет:

К сожалению, отключить действие  клавиши мыши нам пока не удалось. Если вам это удастся, сообщите, пожалуйста.

Alex_Gur, добрый день!

В word есть возможность перехватывать множество событий, в том числе нажатие правой кнопки мыши.
В качестве примера подготовил документ, можете посмотреть во вложении. Исходный код открыт.

Ципихович Эндрю, добрый день!
Посмотрите вложенный документ, там готовое решение.

5

Re: Сделать чтобы не показывало контекстное меню

Qra пишет:

можете посмотреть во вложении.

Прошу прощения, файлик сразу не приложился. Исправляюсь.

Post's attachments

Правая кнопка.doc 30.5 Кб, 3 скачиваний с 2012-04-10 

You don't have the permssions to download the attachments of this post.

6

Re: Сделать чтобы не показывало контекстное меню

Qra пишет:
Qra пишет:

можете посмотреть во вложении.

Прошу прощения, файлик сразу не приложился. Исправляюсь.

Уважаемый Qra! Интересно.
Но, увы, я запустил приложенный файл в Word 2010 в режиме Включить все макросы. Правая клавиша мыши не отключилась.
Более того, не могу найти ваш макрос App_WindowBeforeRightClick в списке макросов Word, чтобы его применить.

Нет ли такой же функции для отмены левой кнопки мыши?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7

Re: Сделать чтобы не показывало контекстное меню

Alex_Gur пишет:

Но, увы, я запустил приложенный файл в Word 2010 в режиме Включить все макросы. Правая клавиша мыши не отключилась.
Более того, не могу найти ваш макрос App_WindowBeforeRightClick в списке макросов Word, чтобы его применить.

Нет ли такой же функции для отмены левой кнопки мыши?

Попробуйте повторно загрузить документ. У меня тоже Word 2010 и все работает.
Поскольку у вы не находите макрос могу предположить, что проблема именно с системой безопасности.
Макрос лежит в Microsoft Word Objects->ThisDocument

По поводу отмены левой кнопки мыши встроенного средства Office нет. Честно говоря, мне сложно представить ситуацию, в которой было бы полезно сделать недоступной ЛКМ.

8

Re: Сделать чтобы не показывало контекстное меню

По поводу отмены левой кнопки мыши встроенного средства Office нет. Честно говоря, мне сложно представить ситуацию, в которой было бы полезно сделать недоступной ЛКМ.

В приведенной выше ветке:
http://wordexpert.ru/forum/viewtopic.php?id=1167
ставился вопрос об отключении вывода на экран окна Справочные материалы по сочетанию клавиш Alt+левая кнопка мыши.
Может у вас есть какие-нибудь идеи, как отключить вывод этого окна?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9

Re: Сделать чтобы не показывало контекстное меню

Qra пишет:
Alex_Gur пишет:

Более того, не могу найти ваш макрос App_WindowBeforeRightClick в списке макросов Word, чтобы его применить.

Попробуйте повторно загрузить документ. У меня тоже Word 2010 и все работает.
Поскольку у вы не находите макрос могу предположить, что проблема именно с системой безопасности.
Макрос лежит в Microsoft Word Objects->ThisDocument

В Microsoft Word Objects->ThisDocument макрос есть, но в списке макросов Word (закладка Разработчик - Макросы) мне его увидеть не удалось.
А у вас он там виден?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

10

Re: Сделать чтобы не показывало контекстное меню

Alex_Gur пишет:

В Microsoft Word Objects->ThisDocument макрос есть, но в списке макросов Word (закладка Разработчик - Макросы) мне его увидеть не удалось.
А у вас он там виден?

Нет, там он отображаться не должен.
Это макросы, которые выполняются не по ручному запуску, а автоматически при открытии документа и при нажатии ПКМ.

11

Re: Сделать чтобы не показывало контекстное меню

Qra
1 - у меня Ворд 2003
2 - видя как идёт всё со скрипом выложите просто текст макроса

12

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

13

Re: Сделать чтобы не показывало контекстное меню

Спасибо, всё ОК