Private intI As Integer
Private arr() As Variant

Sub HideCommandBars()
    Dim cb As CommandBar
    
    ' Worksheet Menu Bar нельзя скрыть.
    On Error Resume Next
    
    For Each cb In Application.CommandBars
        If cb.Visible Then
            ReDim Preserve arr(intI)
            arr(intI) = cb.Name
            intI = intI +  1 
            cb.Visible = False
        End If
    Next
End Sub

Sub ShowCommandbars()
    For intI = LBound(arr) To UBound(arr)
        Application.CommandBars(arr(intI)).Visible = True
    Next
End Sub

Public Sub RemoveMenuBar()
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
    
    Set cb = Application.CommandBars("Worksheet menu bar")
    
    For Each cbc In cb.Controls
        cbc.Visible = False
    Next

    Set cb = Nothing
End Sub

Public Sub RemoveMenuBar2()
    Dim cb As CommandBar
    
    Set cb = Application.CommandBars("Worksheet menu bar")
    
    cb.Enabled = False

    Set cb = Nothing
End Sub