Disable "Hyperlink" menu item
Greetings
The following piece of code works fine: CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save &As...").Enabled = False However, if I change it to try and disable the Hyperlink menu item, it will not work: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...). Enabled = False I then attempted to do it by brute force with equal lack of success: For Each m1 In Application.CommandBars(1).Controls For Each m2 In m1.Controls If m2.Caption = "Hyperl&ink..." Then m2.Enabled = False End If Next m2 Next m1 Can anyone please explain to me why these methods fail to disable the Hyperlink menu item, and if there is a way to do it? Thanks and regards Murray |
Disable "Hyperlink" menu item
Murray,
With the addition of the missing " at the end of "Hyperl&ink...", it worked from the Immediate window: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...") .Enabled = False There is also: CommandBars("Cell").Controls("Hyperl&ink...").Enab led = False which appears on the right-click menu of a cell. NickHK "Murray" wrote in message ups.com... Greetings The following piece of code works fine: CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save &As...").Enabled = False However, if I change it to try and disable the Hyperlink menu item, it will not work: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...). Enabled = False I then attempted to do it by brute force with equal lack of success: For Each m1 In Application.CommandBars(1).Controls For Each m2 In m1.Controls If m2.Caption = "Hyperl&ink..." Then m2.Enabled = False End If Next m2 Next m1 Can anyone please explain to me why these methods fail to disable the Hyperlink menu item, and if there is a way to do it? Thanks and regards Murray |
Disable "Hyperlink" menu item
Hi
Or use the ID, also working in non English Excel versions then Sub MenuControl_False() ' Excel 2000 - 2003 Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:=1567) Ctrl.Enabled = False Next Ctrl End Sub Sub MenuControl_True() ' Excel 2000 - 2003 Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:=1576) Ctrl.Enabled = True Next Ctrl End Sub See also http://www.rondebruin.nl/menuid.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "NickHK" wrote in message ... Murray, With the addition of the missing " at the end of "Hyperl&ink...", it worked from the Immediate window: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...") .Enabled = False There is also: CommandBars("Cell").Controls("Hyperl&ink...").Enab led = False which appears on the right-click menu of a cell. NickHK "Murray" wrote in message ups.com... Greetings The following piece of code works fine: CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save &As...").Enabled = False However, if I change it to try and disable the Hyperlink menu item, it will not work: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...). Enabled = False I then attempted to do it by brute force with equal lack of success: For Each m1 In Application.CommandBars(1).Controls For Each m2 In m1.Controls If m2.Caption = "Hyperl&ink..." Then m2.Enabled = False End If Next m2 Next m1 Can anyone please explain to me why these methods fail to disable the Hyperlink menu item, and if there is a way to do it? Thanks and regards Murray |
Disable "Hyperlink" menu item
On Feb 28, 4:52 pm, "NickHK" wrote:
Murray, With the addition of the missing " at the end of "Hyperl&ink...", it worked from the Immediate window: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...") .Enabled = False There is also: CommandBars("Cell").Controls("Hyperl&ink...").Enab led = False which appears on the right-click menu of a cell. NickHK "Murray" wrote in message ups.com... Greetings The following piece of code works fine: CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save &As...").Enabled = False However, if I change it to try and disable the Hyperlink menu item, it will not work: CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Hyperl&ink...). Enabled = False I then attempted to do it by brute force with equal lack of success: For Each m1 In Application.CommandBars(1).Controls For Each m2 In m1.Controls If m2.Caption = "Hyperl&ink..." Then m2.Enabled = False End If Next m2 Next m1 Can anyone please explain to me why these methods fail to disable the Hyperlink menu item, and if there is a way to do it? Thanks and regards Murray- Hide quoted text - - Show quoted text - Doh.... I can't believe I mucked around with this for about two hours yesterday for something so simple. Thanks NickHK for your help. Ron - thanks also for your reply and suggestion. Regards Murray |
All times are GMT +1. The time now is 04:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com