VBA fullscreen

get2guy · Dec 13th 2016

Hello VBA guy's,

I'm trying to open an excel file as full screen mode without toolbar's.
I have tried the codes bellow but it didn't worked and nothing has changed.

Can you assist on making that happen?
In the VBA editor should i select something in the drop-down menus?

VBA editor screen:
[ATTACH=CONFIG]70859[/ATTACH]

Code 1:

Code

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

Code 2:

Code

Private Sub Workbook_WindowResize(ByVal Wn As Window)
    Wn.WindowState = xlMaximized
    EnableResize = False
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False
End Sub

**royUK** · Dec 13th 2016

Re: VBA fullscreen

Welcome to the Forum

Have you read the Forum Rules?

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.
Please make an immediate edit of your post to add the missing tags. Be sure to use them in future posts and do not mix them with other tags

[COLOR="navy"]How to use code tags[/COLOR]

[noparse]

Code

[/noparse]
[COLOR="navy"]your code goes between these tags[/COLOR]
[noparse]

[/noparse]

Or, just highlight all of the code and press the [COLOR="#FF0000"]#[/COLOR] button to add the code tags.

Thanks.

**royUK** · Dec 13th 2016

Re: VBA fullscreen

If you mean hiding the Ribbon then try this

Code

Option Explicit


Private Sub Workbook_Open()
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        .DisplayFormulaBar = False
        .DisplayStatusBar = Not .DisplayStatusBar
    End With
    With ActiveWindow
    .DisplayWorkbookTabs = False
    .DisplayHeadings = False
    .DisplayGridlines = False
    End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        End With
        With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
    .DisplayGridlines = True
    End With
    End Sub
Private Sub Workbook_Activate()
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        .DisplayFormulaBar = False
        .DisplayStatusBar = Not .DisplayStatusBar
    End With
     With ActiveWindow
    .DisplayWorkbookTabs = False
    .DisplayHeadings = False
    .DisplayGridlines = False
    End With


End Sub


Private Sub Workbook_Deactivate()
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
    End With
    With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
    .DisplayGridlines = True
    End With


End Sub

Display More

Where to paste the code

VBA fullscreen

Participate now!

Share