Custom Right Click Menus - Inconsistent Functionality

[Lee]

I have an Excel Workbook with customized, context sensitive, right
click options. This Workbook is widely distributed to my colleagues,
and I have run into an issue on one computer so far.

While the right click options that I'm adding work perfectly fine on
every other machine so far, one computer simply does not display
them.


I have checked the library references in the Excel Workbook, and none
of the required libararies appear to be missing or de-selected on
this
system. I have tried re-installing the MSO.DLL file (Microsoft Office
11.0 Object Library) but this didn't solve the problem either.


All of our systems are running Windows XP with Office 2003.


If anyone has seen an issue like this or has any ideas, your comments
are appreciated.


Below is a section of the code I am using to create the custom right
click options:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Dim cBut As CommandBarButton

On Error Resume Next
For i = 4 To 1 Step -1
If Application.CommandBars("Cell").Controls(i).BuiltIn =
False Then
Application.CommandBars("Cell").Controls(i).Delete
End If
Next i

If ActiveSheet.Index = 2 And ActiveCell.Column = 4 Then
Set cBut =
Application.CommandBars("Cell").Controls.Add(Before:=1,
Temporary:=True)

With cBut
If ActiveCell.Font.Bold = False Then
.Caption = "Lock Date"
Else
.Caption = "Unlock Date"
End If

.BeginGroup = True
.Style = msoButtonCaption
.OnAction = "Module6.LockSelection"

If ActiveCell.Text <> "" And ActiveCell.Row <= LastRow
Then
.Enabled = True
Else
.Enabled = False
End If
End With
...

 

[Jim Cone]

Could be...
The user has a hidden sheet or some columns hidden.
The user is in print preview or page break preview.

Suggest you remove the on error resume next and run the code.
I suspect that will provide some answers.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Lee" <[email protected]>
wrote in message
I have an Excel Workbook with customized, context sensitive, right
click options. This Workbook is widely distributed to my colleagues,
and I have run into an issue on one computer so far.

While the right click options that I'm adding work perfectly fine on
every other machine so far, one computer simply does not display
them.
I have checked the library references in the Excel Workbook, and none
of the required libararies appear to be missing or de-selected on
this
system. I have tried re-installing the MSO.DLL file (Microsoft Office
11.0 Object Library) but this didn't solve the problem either.
All of our systems are running Windows XP with Office 2003.
If anyone has seen an issue like this or has any ideas, your comments
are appreciated.
Below is a section of the code I am using to create the custom right
click options:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Dim cBut As CommandBarButton

On Error Resume Next
For i = 4 To 1 Step -1
If Application.CommandBars("Cell").Controls(i).BuiltIn = False Then
Application.CommandBars("Cell").Controls(i).Delete
End If
Next i

If ActiveSheet.Index = 2 And ActiveCell.Column = 4 Then
Set cBut = _
Application.CommandBars("Cell").Controls.Add(Before:=1, Temporary:=True)
With cBut
If ActiveCell.Font.Bold = False Then
..Caption = "Lock Date"
Else
..Caption = "Unlock Date"
End If
..BeginGroup = True
..Style = msoButtonCaption
..OnAction = "Module6.LockSelection"
If ActiveCell.Text <> "" And ActiveCell.Row <= LastRow Then
..Enabled = True
Else
..Enabled = False
End If
End With
...

 

[Lee]

Could be...
The user has a hidden sheet or some columns hidden.
The user is in print preview or page break preview.

Suggest you remove the on error resume next and run the code.
I suspect that will provide some answers.

Thanks for your response.

Unfortunately, and I should have mentioned it, I did try removing the
resume on error and no error occurred. The most frustrating thing is
that the EXACT same file works on several other machines but not this
one. Leads me to believe that it MUST be an issue with a library file
or something specific to Excel on his computer.

 

[Guest]

For what it's worth, check the mouse settings in Control Panel > Printers and
Other Hardware > mouse

 

[Tom Ogilvy]

Does that user have the workbook in pagebreak preview view (as seen under
the view menu)?

That uses a different right click menu, but can look like a normal
worksheet.