hide all menu bar and deactivate with MyComamndBar

Sub hide_menu_barre()             ' hide all menu bar and activate Mycommanbar 
Dim Cmdb As CommandBar
For Each Cmdb In Application.CommandBars
    Cmdb.Enabled = False
Next Cmdb
    With Application
        .DisplayFormulaBar = False
    End With
    With ActiveWindow
    End With
    Call CreateMyCommandBar       ' standard menubar d'Excel est activé en cliquant sur un bouton de MycommandBar
End Sub