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

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

  • PAIE.xlsm
    157.4 KB · Affichages: 48
Dernière édition:

bof

XLDnaute Occasionnel
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:

Statistiques des forums

Discussions
312 330
Messages
2 087 348
Membres
103 526
dernier inscrit
HEC