Page blanche au démarrage
Tu copies ceci dans le ThisWorbook de ton classeur : Cela "gère" toutes les barres d'outils (menu) intégrées d'excel
Private sub Workbook_Open()
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = False
End If
Next
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
end subPrivate sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = True
End If
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
end subLa ligne if If Mbar.BuiltIn = True Then... conserve les barres d'outils perso. Si tu veux aussi les faire disparaître, enlève la. Attention : Il serait bon d'expliquer une petite procédure que l'usager doit utiliser si l'application se plante et que la procédure de fermeture ne s'exécute pas normalement pour restaurer l'environnement usuel .
Auteur : Denis Michon
Mots clefs associés à cette page : barre, de, défiler, scrollbar, des, tâche, outil, barre des menus, page
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
