Disable right click events on objects

Hi all,

I have the following code on my sheets:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Settings.Range("Q1").Value = "User" Then
    Cancel = True
Else
    Cancel = False
End If
End Sub

It makes the user less likely to mess with a sheet without having to lock everything (which usually leads to a hundred other issues).

Although this works great to prevent the rightclick menu from appearing, it doesnt prevent a menu from popping up whenever an object is selected. And not letting users move objects around is important to the usability of the sheets. The BeforeRightClick event seems to completely ignore rightclicks on objects. Does anyone know of a way to prevent users from selecting objects?