Toolbars

[Devilfish2006k]

Is it possible with or without VBA to open a workbook and all the tool bars are not shown (except for the File, Menu etc toolbar) along with all the column and row headers?

Is it possible to do this for 1 workbook but then when you open a second one, you get the usual toolbars.

Many thanks

 

[JamesW]

Hi,

Add this to your Workbook.Open event:

Private Sub Workbook_Open()
    On Error Resume Next
        With Application
           .DisplayFullScreen = True
           .CommandBars("Standard").Enabled = False
        End With
    On Error GoTo 0
End Sub

Use this to add them again:

    On Error Resume Next
        With Application
           .DisplayFullScreen = False
           .CommandBars("Standard").Enabled = True
        End With
    On Error GoTo 0

 

[Devilfish2006k]

thanks for that.

Can this be isolated to one workbook? If I open another one it also hides the tool bars. I can undo it manually but is there a way to hide it all just for the one workbook?

thanks

 

[saltkev]

Put The Second Part of The Code offered in a "before close event" in the same Workbook as the first piece of code, which is in the "Open Event", then this should work in isolation.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
           With Application
             .DisplayFullScreen = False
            .CommandBars("Standard").Enabled = True
         End With
        On Error GoTo 0
 
End Sub

regards

Kev