Re: Disable File, Edit, View, etc. command bars

From: Danny (anonymous_at_discussions.microsoft.com)
Date: 03/16/04


Date: Tue, 16 Mar 2004 10:06:29 -0800

Hi Ron,

Thanks a lot, AGAIN!

Regards,

Danny

>-----Original Message-----
>Hi Danny
>
>For all
>
>Sub test()
>Dim myCmd As Object
>On Error Resume Next
> Set myCmd = CommandBars("Work*** menu bar")
> For a = 1 To myCmd.Controls.Count
> myCmd.Controls(a).Enabled = False
> Next
>End Sub
>
>
>For one
>Application.CommandBars("Work*** menu bar").Controls
("File").Enabled = False
>
>Whole menubar
>Application.CommandBars("Work*** menu bar").Enabled =
False
>
>
>--
>Regards Ron de Bruin
>(Win XP Pro SP-1 XL2000-2003)
>www.rondebruin.nl
>
>
>
>"Danny" <anonymous@discussions.microsoft.com> wrote in
message news:e19f01c40b7c$a930e2a0$a301280a@phx.gbl...
>> Is there away to disable ONE or MORE of the File, Edit,
>> View, Insert, Format, Tolls, Data, Window and Help
command
>> bars?
>>
>> Thanks
>>
>>
>
>
>.
>


Loading