Minimize/Maximize Ribbon using VBA

[howard_nyc@yahoo.com]

missing from sample code....

"DisplayRibbon" does not change anything


there are five parameters provided to set values:

ShowRowColHeads As Boolean,
    ShowSheetTab As Boolean, _
    ShowGridLines As Boolean, _
    DisplayFBar As Boolean, _
    DisplayRibbon As Boolean


only four are utilized
        ActiveWindow.DisplayHeadings = ShowRowColHeads
        ActiveWindow.DisplayWorkbookTabs = ShowSheetTab
        ActiveWindow.DisplayGridlines = ShowGridLines
        Application.DisplayFormulaBar = DisplayFBar

please advise of corrected code sample

FYI: thread rating of "BAD" due to incomplete sample code... and worst of all misses the question of how to manipulate "ribbon"




https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

[Excel Fox]

It is easily understood from my post above that you should REPLACE one line with another.

Sub ToggleProperties(ByVal ShowRowColHeads As Boolean, _
                                    ByVal ShowSheetTab As Boolean, _
                                    ByVal ShowGridLines As Boolean, _
                                    ByVal DisplayFBar As Boolean, _
                                    ByVal DisplayRibbon As Boolean, _
                                    ParamArray ShtNames() As Variant)
                                    
    If Not IsMissing(ShtNames) Then
        ThisWorkbook.Worksheets(ShtNames).Select
        ActiveWindow.DisplayHeadings = ShowRowColHeads
        ActiveWindow.DisplayWorkbookTabs = ShowSheetTab
        ActiveWindow.DisplayGridlines = ShowGridLines
        Application.DisplayFormulaBar = DisplayFBar
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & DisplayRibbon & ")"
        ThisWorkbook.Worksheets(ShtNames(0)).Select
    End If
    
End Sub

[superman]

I think to hide ribbon. Best to switch the workbook in full view mode.
I hope it is tricky..