Removing/restoring toolbars

[peter.thompson]

I am using the sub below to remove/restore toolbars. This code also removes the horizontal scroll bar. What do I need to change to ensure the horizontal toolbar is always visible?

Any help much appreciated.

Cheers,

Peter

Sub RemoveToolbars()
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
.CommandBars("Worksheet Menu Bar").Enabled = False
End With
On Error GoTo 0
End Sub

Sub RestoreToolbars()
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
On Error GoTo 0
End Sub

[Tom Ogilvy]

These commands control the display of the scrollbars:

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With


--
Regards,
Tom Ogilvy



"peter.thompson"
<[email protected]> wrote in
message news:[email protected]...
>
> I am using the sub below to remove/restore toolbars. This code also
> removes the horizontal scroll bar. What do I need to change to ensure
> the horizontal toolbar is always visible?
>
> Any help much appreciated.
>
> Cheers,
>
> Peter
>
> Sub RemoveToolbars()
> On Error Resume Next
> With Application
> DisplayFullScreen = True
> CommandBars("Full Screen").Visible = False
> CommandBars("Worksheet Menu Bar").Enabled = False
> End With
> On Error GoTo 0
> End Sub
>
> Sub RestoreToolbars()
> On Error Resume Next
> With Application
> DisplayFullScreen = False
> CommandBars("Worksheet Menu Bar").Enabled = True
> End With
> On Error GoTo 0
> End Sub
>
>
> --
> peter.thompson
> ------------------------------------------------------------------------
> peter.thompson's Profile:
http://www.excelforum.com/member.php...o&userid=29686
> View this thread: http://www.excelforum.com/showthread...hreadid=506662
>

[peter.thompson]

Thanks again Tom

Cheers

Peter