Eliminating Toolbars,Sheet Tabs,Scroll Bars. etc.

[mtm4300 via OfficeKB.com]

I am having trouble writing a macro to disable all toolbars. I also want to
turnoff the column and row headings as well as the sheet tabs and scroll bars.
And I would like to restore all of these when the program closes. I only want
the toolbars to be disabled during the program and I want the toolbars there
if I open another Excel file. Is this possible to do with a macro?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200602/1

[Ron de Bruin]

Hi

Start here
http://www.rondebruin.com/menuid.htm

>the column and row headings as well as the sheet tabs and scroll bars
record a macro when you do this manual

--
Regards Ron de Bruin
http://www.rondebruin.nl


"mtm4300 via OfficeKB.com" <u18572@uwe> wrote in message news:5bf99a0f23364@uwe...
>I am having trouble writing a macro to disable all toolbars. I also want to
> turnoff the column and row headings as well as the sheet tabs and scroll bars.
> And I would like to restore all of these when the program closes. I only want
> the toolbars to be disabled during the program and I want the toolbars there
> if I open another Excel file. Is this possible to do with a macro?
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200602/1

[Bob Phillips]

Option Explicit

Private mFormulaBar
Private mStatusbar

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB

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

Application.DisplayFormulaBar = mFormulaBar
Application.StatusBar = mStatusBar

End Sub

Private Sub Workbook_Open()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB

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

mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False
mStatusBar = Application.StatusBar
Application.StatusBar = False
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"mtm4300 via OfficeKB.com" <u18572@uwe> wrote in message
news:5bf99a0f23364@uwe...
> I am having trouble writing a macro to disable all toolbars. I also want
to
> turnoff the column and row headings as well as the sheet tabs and scroll
bars.
> And I would like to restore all of these when the program closes. I only
want
> the toolbars to be disabled during the program and I want the toolbars
there
> if I open another Excel file. Is this possible to do with a macro?
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200602/1

[mtm4300 via OfficeKB.com]

Thank you.

Bob Phillips wrote:
>Option Explicit
>
>Private mFormulaBar
>Private mStatusbar
>
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>Dim oCB As CommandBar
> For Each oCB In Application.CommandBars
> oCB.Enabled = True
> Next oCB
>
> With ActiveWindow
> .DisplayHeadings = True
> .DisplayHorizontalScrollBar = True
> .DisplayVerticalScrollBar = True
> .DisplayWorkbookTabs = True
> End With
>
> Application.DisplayFormulaBar = mFormulaBar
> Application.StatusBar = mStatusBar
>
>End Sub
>
>Private Sub Workbook_Open()
>Dim oCB As CommandBar
> For Each oCB In Application.CommandBars
> oCB.Enabled = False
> Next oCB
>
> With ActiveWindow
> .DisplayHeadings = False
> .DisplayHorizontalScrollBar = False
> .DisplayVerticalScrollBar = False
> .DisplayWorkbookTabs = False
> End With
>
> mFormulaBar = Application.DisplayFormulaBar
> Application.DisplayFormulaBar = False
> mStatusBar = Application.StatusBar
>Application.StatusBar = False
>End Sub
>
>'This is workbook event code.
>'To input this code, right click on the Excel icon on the worksheet
>'(or next to the File menu if you maximise your workbooks),
>'select View Code from the menu, and paste the code
>
>> I am having trouble writing a macro to disable all toolbars. I also want to
>> turnoff the column and row headings as well as the sheet tabs and scroll bars.
>> And I would like to restore all of these when the program closes. I only want
>> the toolbars to be disabled during the program and I want the toolbars there
>> if I open another Excel file. Is this possible to do with a macro?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200602/1