Discussion :

[bbelzile]

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

[pgz]

Bonjour.

Tu peux essayer de modifier la procédure évènementielle

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
if Msgbox("Voulez-vous quitter?", vbYesNo) = vbno then
     cancel = true
     exit sub
end if
 
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

Cordialement,

PGZ