Excel 2010 Disable Right Click Menu

Question

Добрый день все,

Я пытаюсь ограничить меню правого клика появлением на листе Excel. Я попытался использовать код:

Private Sub Workbook_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
    MsgBox "Sorry! Right click is disabled!" 
    Cancel = True 
End Sub 

Я пропустил что-то, что позволит этой работе?

Спасибо,

Бен

Answer 1

Вы можете использовать код:

MsgBox "Sorry! Right click is disabled!" 
Cancel = True 

Но указать таблицу, вам нужно будет открыть модуль кода, который рабочего листа и поставить его в блоке событий Worksheet_BeforeRightClick так что конечный результат выглядит следующим образом:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
    MsgBox "Sorry! Right click is disabled!" 
    Cancel = True 
End Sub 

Редактирование: Обратите внимание, что событие в определенном листе рабочего листа является событием «Worksheet_BeforeRightClick», но модуль рабочей книги имеет «Workbook_SheetBeforeRightClick». Если вы хотите его на лист, вам нужно будет добавить событие рабочего листа на каждый желаемый лист. Если вы хотите его для всей книги, вам нужно будет поместить событие книги в модуль рабочей книги.

Для модуля рабочей книги, он должен выглядеть следующим образом («ThisWorkbook» в проекте «BOOK1» является выбранный модуль в левой панели):

Для модуля рабочего листа, он должен выглядеть следующим образом («Sheet1 (Sheet1)» в проекте «Book1» - выбранный модуль на левой панели);

Синтаксическая разность - ключ.