Disable right click

bhavesh78 · #1 (**permalink**) 01-20-05, 17:47

How can I disable right click on an excel sheet? It should display message saying "Command not allowed .."

Thanks.

~BS

MikeTheBike · #2 (**permalink**) 01-21-05, 08:12

Hi

Try pasting this in the in every worksheet VBA code module that you want it disabled.

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
    MsgBox "Command not allowed.", vbCritical, "Command Disabled"
    Cancel = True
End Sub

HTH

MTB

MikeTheBike · #3 (**permalink**) 01-21-05, 08:20

Hi again

Alterrnatively you could put the code in the ThisWorkbook code module
ie

Code:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
    MsgBox "Command not allowed.", vbCritical, "Command Disabled"
    Cancel = True
End Sub

This will disable all sheets right click.

MTB

bhavesh78 · #4 (**permalink**) 01-21-05, 12:53

Thanks Mike. The code works.

~BS

Internet Services

Web Development

Digital Marketing

Consumer Tech