vba: Show Full Screen

[bamaisgreat]

Thanks for looking. My goal is to have a macro that will make the command bar hide and display the sheet in full screen.
Also I would like a macro to undo all the above, but this macro would need a password to be executed. Here is some code that I found im just not sure how to put it all together.

Application.DisplayFullScreen = True
 Application.CommandBars("Full Screen").Enabled = False

 

[MARK858]

Try the codes below

Sub test()
    Application.DisplayFullScreen = True
    ' comment out  options below as needed
    Application.CommandBars("Full Screen").Enabled = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayStatusBar = False
    Application.DisplayDocumentActionTaskPane = False
    Application.CommandBars.ActiveMenuBar.Enabled = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayHeadings = False
    End With
End Sub


Sub test2()
    Dim Pwrd As String
    Pwrd = InputBox("Enter your password:", "Password")
    If Pwrd = "abc" Then
        Application.WindowState = xlNormal
        Exit Sub
    Else
        MsgBox "Wrong password!", vbCritical, "Error"
        Exit Sub
    End If
End Sub

 

[MARK858]

Actually after playing around with it you are better off reversing the first macro

Sub test2()    Dim Pwrd As String
    Pwrd = InputBox("Enter your password:", "Password")
    If Pwrd = "abc" Then
         Application.DisplayFullScreen = False
    ' comment out  options below as needed
    Application.CommandBars("Full Screen").Enabled = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayStatusBar = True
    Application.CommandBars.ActiveMenuBar.Enabled = True
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayHeadings = True
    End With
        Exit Sub
    Else
        MsgBox "Wrong password!", vbCritical, "Error"
        Exit Sub
    End If
End Sub