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

  • Initiateur de la discussion Initiateur de la discussion KTM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

KTM

XLDnaute Impliqué
Bonjour cher FORUM
Je voudrais masquer automatiquement le ruban et la barre de formule à l'ouverture de mon fichier
Merci!!!
 
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
 

Pièces jointes

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
MERCI BEAUCOUP!!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
367
Réponses
6
Affichages
198
Réponses
1
Affichages
289
  • Question Question
XL 2021 Macros
Réponses
3
Affichages
155
Réponses
5
Affichages
301
  • Question Question
Microsoft 365 Personal.xlsb
Réponses
4
Affichages
250
Retour