Bonjour,
Voila, j'ai crée à l'aide de certains cette commande qui fonctionne super bien
mais quand elle est activé, meme en fermant le fichier j'ai la FormuleBar qui continue a être masqué
comment dois je faire pour qu'une fois le fichier xlsm fermé, tout redevienne comme avant ??
Par avance, merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 '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
Partager