Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Arrary with Findcontrol
Hi,
I have used the following code to disable all menu bar items except File and Help. Is there a simpler way of writing this code. My code works but I am just curious. Any help is appreciated. Regards Moody |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Array with Findcontrol
sorry forgot to add my code:
With Application.CommandBars("Worksheet Menu Bar") .FindControl(ID:=30003).Enabled = False .FindControl(ID:=30004).Enabled = False .FindControl(ID:=30005).Enabled = False .FindControl(ID:=30006).Enabled = False .FindControl(ID:=30007).Enabled = False .FindControl(ID:=30011).Enabled = False .FindControl(ID:=30009).Enabled = False .FindControl(ID:=3, Recursive:=True).Enabled = False .FindControl(ID:=748, Recursive:=True).Enabled = False .FindControl(ID:=3823, Recursive:=True).Enabled = False .FindControl(ID:=846, Recursive:=True).Enabled = False End With Hi, I have used the following code to disable all menu bar items except File and Help. Is there a simpler way of writing this code. My code works but I am just curious. Any help is appreciated. Regards Moody |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Array with Findcontrol
Moody,
Here's a start: Sub test() Dim find_control_array Dim find_control With Application.CommandBars("Worksheet Menu Bar") find_control_array = Array(30003, 30004) ' add the rest For Each find_control In find_control_array .FindControl(ID:=find_control).Enabled = False Next find_control 'another loop here with the recursive argument End With End Sub hth, Doug Glancy "Moody" wrote in message ... sorry forgot to add my code: With Application.CommandBars("Worksheet Menu Bar") .FindControl(ID:=30003).Enabled = False .FindControl(ID:=30004).Enabled = False .FindControl(ID:=30005).Enabled = False .FindControl(ID:=30006).Enabled = False .FindControl(ID:=30007).Enabled = False .FindControl(ID:=30011).Enabled = False .FindControl(ID:=30009).Enabled = False .FindControl(ID:=3, Recursive:=True).Enabled = False .FindControl(ID:=748, Recursive:=True).Enabled = False .FindControl(ID:=3823, Recursive:=True).Enabled = False .FindControl(ID:=846, Recursive:=True).Enabled = False End With Hi, I have used the following code to disable all menu bar items except File and Help. Is there a simpler way of writing this code. My code works but I am just curious. Any help is appreciated. Regards Moody |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Array with Findcontrol
I tried and it works. Thanks a lot Doug, I appreciate your help.
"Doug Glancy" wrote: Moody, Here's a start: Sub test() Dim find_control_array Dim find_control With Application.CommandBars("Worksheet Menu Bar") find_control_array = Array(30003, 30004) ' add the rest For Each find_control In find_control_array .FindControl(ID:=find_control).Enabled = False Next find_control 'another loop here with the recursive argument End With End Sub hth, Doug Glancy "Moody" wrote in message ... sorry forgot to add my code: With Application.CommandBars("Worksheet Menu Bar") .FindControl(ID:=30003).Enabled = False .FindControl(ID:=30004).Enabled = False .FindControl(ID:=30005).Enabled = False .FindControl(ID:=30006).Enabled = False .FindControl(ID:=30007).Enabled = False .FindControl(ID:=30011).Enabled = False .FindControl(ID:=30009).Enabled = False .FindControl(ID:=3, Recursive:=True).Enabled = False .FindControl(ID:=748, Recursive:=True).Enabled = False .FindControl(ID:=3823, Recursive:=True).Enabled = False .FindControl(ID:=846, Recursive:=True).Enabled = False End With Hi, I have used the following code to disable all menu bar items except File and Help. Is there a simpler way of writing this code. My code works but I am just curious. Any help is appreciated. Regards Moody |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Findcontrol for submenu item? | Excel Programming | |||
Findcontrol | Excel Programming | |||
FindControl ?!? | Excel Programming |