Menus in Excel 2007
Just tested without On Error Resume Next and mine crashed at 'Ply' with
'Invalid proc call'
Geoff
"Geoff" wrote:
That's odd - I wonder how the wbooks may differ. I run this as part of an
add-in where I discourage people trying to meddle by inserting or deleting
sheets. In particular, with Application.CommandBars("Ply").Enabled = False I
am, as you can tell, trying to disable right clicking on the sheet tabs.
This used to work ok but now in 2007 i can right click away without
restriction and i wondered if maybe menu titles had been changed.
Geoff
"Tom Ogilvy" wrote:
I commented out On Error Resume Next and ran it in Excel 2007. It ran fine
for me and took all the programmed actions. Then I changed all the False's
to True and restored everything. So I don't think the problem is
necessarily xl2007 itself. Are you using smart menus? I don't, but if you
do, they might be problematic if the items are not visible - I can't say for
sure because I haven't tested it.
--
Regards,
Tom Ogilvy
"Geoff" wrote:
Not sure if this is the correct group but...
This proc in E 2003 no longer does what is required in E 2007 and only gets
by because of 'On Error Resume Next':
Sub DisableMenus()
'''Disable 'Sheet' menus
On Error Resume Next
'''Insert Worksheet
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=852,
Recursive:=True).Enabled = False
With Application.CommandBars("Edit")
.Controls("Delete Sheet").Enabled = False
.Controls("Move or Copy Sheet...").Enabled = False
End With
Application.CommandBars("Ply").Enabled = False
On Error GoTo 0
End Sub
Does anyone have an idea how to convert?
Geoff
|