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

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

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

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