Bonjour,

J’ai développé une application comprenant plusieurs feuilles Excel et des macros VBA. J’ouvre le classeur avec la procédure suivante pour masquer la plupart des barres de commandes, les onglets et les entêtes de colonnes.

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
19
20
21
22
23
24
Private Sub Workbook_Open()
Dim wsSheet As Worksheet
Dim sSheetStart
    Set sSheetStart = ActiveSheet
    ActiveWindow.DisplayWorkbookTabs = False
    With Application
    .DisplayFullScreen = False
    .DisplayFormulaBar = False
    .CommandBars("Worksheet Menu Bar").Enabled = True
    .CommandBars("Standard").Visible = True
    .CommandBars("Formatting").Visible = False
    .CommandBars("drawing").Visible = False
    .ScreenUpdating = False
    .EnableEvents = False
    End With
            For Each wsSheet In Worksheets
            wsSheet.Activate
            ActiveWindow.DisplayHeadings = False
            Next
    sSheetStart.Activate
    Application.ScreenUpdating = False
    Application.EnableEvents = True
    Sheets("MENU PRINCIPAL").Activate
End Sub
J’ai aussi écrit la procédure suivante pour rétablir les barres de commandes, onglets et entêtes à la fermeture du classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars(1).Enabled = True
.CommandBars(1).Visible = True
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
End With
End Sub
Lorsque je veux fermer mon classeur en utilisant la commande Excel, toutes les barres de commandes, onglets, etc., s’affichent avant même que j’aie répondu à la question : « Voulez-vous enregistrer les modifications apportées à (nom du classeur.xls)? Et si je clique sur « ANNULER », tout reste affiché
Comment faire pour que si je clique « ANNULER », les éléments que j’avais masqués à l’ouverture retournent dans cet état?
Merci
Bernard