code VBA qui reste actif pour d'autres fichiers
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 ??
Code:
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 |
Par avance, merci de votre aide
