Excel VBA Disabling Right Click Menus

[WorkHorse]

This should disable the popup on the status bar:

Application.CommandBars("AutoCalculate").Enabled = False

As you can see, that applies to the whole application. If you just want it disabled for a workbook you can use that code to toggle it in the Workbook Activate/Deactivate events.

For more info on working with CommandBars (like adding controls, etc.) see the Excel VBA help file topic "CommandBar Object".

I don't have any popups on the scrollbars (Excel 2000). There is probably some documentation of all the built-in CommandBars somewhere, but I just use the code below to find the CommandBar name. Kepp in mind that if a letter is underlined, that means there is an amersand before the letter in the actual control caption.

Sub FindCommandBar()
 
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
    Dim strControlCaption As String
    
    strControlCaption = "&None"
 
    For Each cb In Application.CommandBars
        For Each cbc In Application.CommandBars(cb.Name).Controls
            If cbc.Caption = strControlCaption Then
                Debug.Print cb.Name
                Exit For
            End If
        Next cbc
    Next cb
 
End Sub