Excel VisualBasic Script

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
                                               Cancel As Boolean)
           Cancel = True
     End Sub