XL 2016 Masquer ruban et barre de formule à l'ouverture du fichier

sylvanu à dit:

Bonjour KTM,
Un essai en PJ avec :

VB:

Private Sub Workbook_Open()
With Windows(ThisWorkbook.Name)
    .Application.CommandBars("Ply").enabled = False                     'Masquage menu contextuel
    .Application.DisplayFormulaBar = False                              'Masquage barre de formule
    .Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"    'Masquage ruban
End With
End Sub

Et pour tout remettre dans l'ordre :

Code:

Private Sub ToutVisible()
With Windows(ThisWorkbook.Name)
    .Application.CommandBars("Ply").enabled = True                      'Menu contextuel visible
    .Application.DisplayFormulaBar = True                               'Barre de formule visible
    .Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"     'Ruban visible
End With
End Sub

Cliquez pour agrandir...