Ленты (Ribbons) - Сворачивание

Public Sub SetRibbonState(Optional blnShowRibbon As Boolean, Optional blnHeightOnly As Boolean)
' По умолчанию скрывает весь интерфейс Ribbon
' Инфо: https://techcommunity.microsoft.com/t5/excel/dustion-how-to-turn-off-on-ribbon-formular-bar-etc-ect/m-p/3670293
    Application.Echo False
    If blnShowRibbon Then                         ' Показать ...
        If blnHeightOnly Then
            If CommandBars("Ribbon").Controls(1).Height < 99 Then
                Application.CommandBars.ExecuteMso "MaximizeRibbon"
            End If
        Else
            DoCmd.ShowToolbar "Ribbon", acToolbarYes
            If CommandBars("Ribbon").Controls(1).Height > 99 Then
                Application.CommandBars.ExecuteMso "MaximizeRibbon"
            End If
        End If
    Else                                           ' Скрыть ...
        If blnHeightOnly Then                      ' Только свернуть
            If CommandBars("Ribbon").Controls(1).Height > 99 Then
                Application.CommandBars.ExecuteMso "MinimizeRibbon"
            End If
        Else
            DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Скрывает напрчь!
        End If
    End If
    Application.Echo True
End Sub