Hide Menu Bar, Tool Bar, Ribbon

[Jeffrey Mahoney]

Is there a VBA equivalent to CTRL-SHIFT-F1 which hides the ribbon and the statusbar? That keyboard shortcut is great because I can still click on the black bar at the top to see the full ribbon.

The only code I've found is below. No mouse use and no keyboard shortcut to reverse.

Sendkeys did not work for me using Application.Sendkeys "+^{F1}"

Public FullScreen As Boolean

Sub ToggleFullScreen()
  FullScreen = Abs(FullScreen) - 1
  Application.DisplayFullScreen = FullScreen
End Sub

 

[pbornemeier]

Sub RibbonAndQATAndStatusBar_Hide()
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",false)"
    Application.DisplayStatusBar = false
End Sub

Sub RibbonAndQATAndStatusBar_Show()
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",true)"
    Application.DisplayStatusBar = true
End Sub

 

[Jeffrey Mahoney]

Thank you for that pbornemeier. I saw that code also. It is the same as Application.DisplayFullScreen. It won't let me temporarily use the ribbon by clicking on it.

 

[Momentman]

Thank you for that pbornemeier. I saw that code also. It is the same as Application.DisplayFullScreen. It won't let me temporarily use the ribbon by clicking on it.

When you say sendkeys does not work for you? what happens exactly? If you are running the macro from the VBE, that would not work because the focus is not on the Workbook/worksheet where the sendleys can have an effect

I tested using a button inserted on the worksheet(that would not be the ideal way), and I also added it to macro to the Quick Access toolbar and that works. it all depends on your exact use case

 

[Jeffrey Mahoney]

When I run the macro from a workbook, not VBA, It does set the full screen mode I want, but it also toggles my numlock on and off

 

[Jeffrey Mahoney]

The strange part of this is if I first turn off my numlock, the code below won't toggle the numlock. When my numlock is on, it does.
Application.Sendkeys "+^{F1}"

 

[JEC]

run it like this

Application.Sendkeys "+^{F1}"
Doevents
Application.Sendkeys "+^{F1}"

Or with shellobject(will not toggle numlock)

CreateObject("WScript.Shell").SendKeys  "+^{F1}"

 

[Jeffrey Mahoney]

@JEC
Well the CreateObject line worked in that it didn't actually toggle my numlock. My laptop displays an on screen notification for numlock and capslock. The notification for the numlock shows it being toggled, but remains unchanged.

Thank you