Discussion :

[adrienoob]

Rebonjour,

J'ai un soucis pour fermer mon classeur. J'ai trouvé un code et j'essaye en vain depuis 5 jours de le mettre en marche.

J'ai des pistes pour résoudre mais je n'y arrive pas.

Mon code me permet de fermer mon classeur excel par le biais d'un bouton.
On doit avant de fermer le fichier, cacher en xlveryhidden toutes les feuilles sauf la feuille "starting notice" et ensuite enregistrer.

Problème c'est que rien ne s'enregistre et mes feuilles restent affichées.
J'ai une macro hidesheets ('permet de gerer l'etat visible des feuilles'), qui se trouvent après "ThisWorkbook.Close".

Lorsque je mets "hidesheets" avant "ThisWorkbook.Close" ça marche.
Lorsque je mets "hidesheets" après "ThisWorkbook.Close" ça marche pas.

Alors je suspect le "ThisWorkbook.Close".

code qui permet de gérer le bouton pour sortir du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Rectangle1_QuandClic()
    ClosingThisFile
End Sub

code qui fermer le classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub ClosingThisFile()
    MyFileIsOpen = False
    ThisWorkbook.Close
End Sub

code sur l'evenement Workbook_BeforeClose

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Workbook_BeforeClose(Cancel As Boolean)
        'une partie de ce qui suit ne sert qu'a gerer le passage IsAddin = True de ce fichier si
        'l'utilisateur veut sauver avant de fermer
        'Pour cela on vas substituer au message d'excel notre propre message ce qui
        'permet de gerer le cas du bouton cancel
 
 
        If MyFileIsOpen = True Then Exit Sub
        Dim Reponse As VbMsgBoxResult
        If ThisWorkbook.Saved = True Then
            'retour a la normale
            Defaut
            'on vide la classe
            Call XlAppli.EmptyClass
        Else
            Cancel = True
            'ici notre message perso:
            On Error Resume Next
            Reponse = MsgBox("Voulez-vous sauver les modifications effectuées dans '" & ActiveWorkbook.Name & "' ? ", vbExclamation + vbYesNoCancel)
            Select Case Reponse
                Case vbYes 'l'utilisateur veut sauver avant de fermer le fichier
                    HideSheets
                    Application.EnableEvents = False 'pour eviter de passer par l'evenement Workbook_BeforeSave
                    ThisWorkbook.IsAddin = True
                    ThisWorkbook.Save
                    ThisWorkbook.Saved = True
                    Application.EnableEvents = True
                    Application.DisplayAlerts = True
                    Application.ScreenUpdating = True
                    Cancel = False
                Case vbNo 'l'utilisateur ne veut pas sauver. Pour cela:
                    'retour a la normale
                    Defaut
                    'on vide la classe
                    Call XlAppli.EmptyClass
                    'on laisse croire excel que le fichier a été sauvé
                    ThisWorkbook.Saved = True
                    'on autorise la fermeture
                    Cancel = False
            End Select
        ' si cancel rien ne ce passe
        End If
End Sub

Code pour masquer feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub HideSheets()
    'Cache toute les feuilles a l'exception de la feuille starting notice
    'j'ai laissé cette option qui fonctionne si ce fichier n'est pas enregistré avec
    'l'option IsAddin a vrai. Dans le cas contraire cela ne sert a rien
    Dim MySheet As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Sheets("starting notice").Visible = xlVeryHidden Then Sheets("starting notice").Visible = True
    For Each MySheet In ThisWorkbook.Worksheets
        If Not MySheet.Name = "starting notice" Then
            MySheet.Visible = xlVeryHidden
        End If
    Next
End SubEnd Sub

Merci d'avance

[fring]

Lorsque je mets "hidesheets" avant "ThisWorkbook.Close" ça marche.
Lorsque je mets "hidesheets" après "ThisWorkbook.Close" ça marche pas.

Bin oui forcément, plus rien ne pourrait s'exécuter après ThisWorkbook.Close" puisque le classeur est fermé...

[adrienoob]

Yes un modérateur


Ben quand je met la macro en pas à pas elle passe bien par toutes les étapes.

elle passe d'abord par Sub Rectangle1_QuandClic() puis par Sub ClosingThisFile() et ensuite Private Sub Workbook_BeforeClose(Cancel As Boolean).

Donc elle passe bien par Workbook_BeforeClose(Cancel As Boolean) donc par l'action "hidesheets".

Sinon tu serais comment je peux me débrouiller pour que je ferme mon fichier en gérant moi même la fermeture avec la gestion de l'enregistrement?

[fring]

A première vue, je ne vois rien de particulier dans ton code qui ferait en sorte que ça ne fonctionne pas. Par contre je ne comprend pas le but, tu cherches à obtenir quoi ? Que l'utilisateur ne peut pas fermer le classeur sans l'enregistrer ?

[adrienoob]

Bonjour,

Ben en fait je cherche à gérer la sécurité de mon classeur.

Je veux que lorsque mon classeur est ouvert avec les macro activé je ne puisse pas rentrer dans le code VBA et gerer la sortie de l'application.
Puis je veux que quand l'utilisateur ouvre le fichier avec les macros désactivées qu'il n'ai accès à rien.

C'est possible

[fring]

Je veux que lorsque mon classeur est ouvert avec les macro activé je ne puisse pas rentrer dans le code VBA

Pour ça il suffit de mettre un code de protection à ton projet VBA tout en gardant à l'esprit qu'aucune sécurité n'est incontournable.

Puis je veux que quand l'utilisateur ouvre le fichier avec les macros désactivées qu'il n'ai accès à rien.

Là tu es sur la bonne piste

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Sheets("starting notice").Visible = True
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "starting notice" Then Sheets(i).Visible = xlVeryHidden
Next
ThisWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "starting notice" Then Sheets(i).Visible = True
Next
Sheets("starting notice").Visible = xlVeryHidden
End Sub

Le problème est que tu es obligé de sauvegarder le fichier à sa fermeture pour garder les feuilles masquées lors de la réouverture avec les macros désactivées ce qui peut être gênant dans le cas où par exemple tu constates que tu as fait une boulette et que tu veux fermer le classeur sans enregistrer les modifications.