[RESOLU] commande macro affichage demarrage .xlsm / dasactive quand on le ferme

  • Initiateur de la discussion Initiateur de la discussion msel
  • 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 !

msel

XLDnaute Junior
Bonjour,
Voila j'ai réussi à finaliser le ruban personnalisé avec les macros qui vont bien.
mais voila j'ai un code qui quand je les coches restent paramétrés pour les autres fichiers xls.
: Application.DisplayFormulaBar

Code:
'Callback for TB01 onAction
Sub TB01(control As IRibbonControl, pressed As Boolean)
Dim ActiveS As Worksheet
Dim S As Worksheet
'---
Application.ScreenUpdating = False
'---
Set ActiveS = ActiveSheet
ActiveWindow.DisplayWorkbookTabs = pressed
Application.DisplayFormulaBar = pressed
For Each S In ThisWorkbook.Sheets
  S.Activate
  ActiveWindow.DisplayHeadings = pressed
Next S
ActiveS.Activate
'---
Application.ScreenUpdating = True
End Sub

est il possible que cette commande soit active directement à l'ouverture du fichier et qu'elle se désactive à la fermeture

Merci à toutes et tous pour vos réponses.
 

Pièces jointes

Dernière édition:
Re : commande macro affichage demarrage .xlsm / dasactive quand on le ferme

Bonsoir,
Si j'ai bien compris...
Rajouter cette macro dans le module ThisWorkbook :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
End Sub
et son contraire dans Workbook_Open :
Code:
Private Sub Workbook_Open()
Sheets("Ident").Select
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
End Sub
A+
 
Dernière édition:
- 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
Retour