Page blanche au démarrage

Comment enlever toutes les barres d'outils, onglets, croix de fermeture sur un classeur excel à l'ouverture de façon à démarrer sur une page blanche et tout remettre à la fermeture ?

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 sub
Private 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 sub

La 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 :

Mots clefs associés à cette page : , , , , , , , ,