Aktif sayfada sağ tıklama işlemini pasifleştirmeye yarayan VBA kodu örneğidir.
Option Explicit
Private Sub Worksheet_BeforeRightClick( _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Sağ tıklama işlemi pasifleştirilmiştir."
'Application.StatusBar = "Mouse sağ tuşu bu sayfa için pasif hale getirilmiştir."
End Sub