Mouse right-click inoperable

Neal · March 15th, 2007, 08:38 AM

Hi,

I have disabled various User functions within a specified Workbook, depending on the User.

A couple of examples are:

'Prevent Right-Click on WorkSheet Tab

Code:

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

'Prevent Right-Click on WorkSheet Cells

Code:

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

The problem is that one user claims that he is now unable to 'Right Click' on Cells in OTHER Excel workbooks.

Does anyone know how to resolve this? i.e. To limit the restrictions to the specific Workbook?

Thanks in advance,

Neal

A Northern Soul

allenm · March 15th, 2007, 02:04 PM

Not sure why you want to cancel Right-Click but you should trap it from the spreadsheet instead:

--------------------------------------------------------------------------------------------------

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

'Cancels Right Click for this worksheet
Cancel = True

End Sub
--------------------------------------------------------------------------------------------------

You could also check ranges this way and only cancel the Right-Click for certain cells or cell values or cell states (etc, etc).

Neal · March 16th, 2007, 05:32 AM

I have been advised of the following code.

On current/active workbook:

Code:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
'Prevent Right-Click on WorkSheet Tab
Application.CommandBars("PLY").Enabled = False

'Prevent Right-Click on WorkSheet Cells
Application.CommandBars("CELL").Enabled = False
End Sub

When accessing Other opened workbooks:

Code:

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
'Allow Right-Click on WorkSheet Tab
Application.CommandBars("PLY").Enabled = True

'Allow Right-Click on WorkSheet Cells
Application.CommandBars("CELL").Enabled = True
End Sub

which appears to work.

Thanks..

Neal

A Northern Soul