Application.SendKeys F1

Hello brentjohn,

You really shouldn't rely on SendKeys for this. The Ribbon hide/show command toggles the Ribbon depending on it's state. If it is showing then it is minimized. If it is minimized then it is hidden.

Private Sub Workbook_open()
    If (CommandBars("Ribbon").Controls(1).Height > 100) Then
        CommandBars.ExecuteMso "MinimizeRibbon"
    End If
End Sub

Private Sub Workbook_deactivate()
    If (CommandBars("Ribbon").Controls(1).Height < 100) Then
        CommandBars.ExecuteMso "MinimizeRibbon"
    End If
End Sub

Hello brentjohn,

I forgot when using the Workbook Open event that you must use fully qualified constructs. Replace your code with the code below. It should take care of the problem.

Private Sub Workbook_Open()
    If (Application.CommandBars("Ribbon").Controls(1).Height > 100) Then
        Application.CommandBars.ExecuteMso "MinimizeRibbon"
    End If
End Sub

Private Sub Workbook_Deactivate()
    If (Application.CommandBars("Ribbon").Controls(1).Height < 100) Then
        Application.CommandBars.ExecuteMso "MinimizeRibbon"
    End If
End Sub

Hello brentjohn,

You're welcome. As many times as I have forgotten to do this in my own projects, I should have gotten it right the first time.