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

[KTM]

Bonjour cher FORUM
Je voudrais masquer automatiquement le ruban et la barre de formule à l'ouverture de mon fichier
Merci!!!

 

[sylvanu]

Bonjour KTM,
Un essai en PJ avec :

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 :

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

 

[KTM]

Bonjour KTM,
Un essai en PJ avec :

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 :

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

MERCI BEAUCOUP!!!