Контекстное меню.

[nikolai_P]

Добрый день!

Я хочу создать контекстное меню для правой кнопки. Следующий код выключает обычное меню для правой кнопки в заданном диапазоне.

Private Sub WorkSheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column <= 2 And Target.Row <= 4 Then
Cancel = True
End If
End Sub

При этом, код необходимо поместить в модуль листа.

Подскажите как сделать чтобы работало сразу для всех листов книги?

[EducatedFool]

Добавьте этот код в модуль книги:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = (Target.Column <= 2 And Target.Row <= 4)
    ' а здесь формируем своё меню
End Sub