Discussion :

[dreamsodfa]

Bonjour toutes et tous

Je suis nouveau avec vous & débutant VBA

je souhaiterais rectifier le macro suivante pour Empêcher de quitter la feuille active si je n'ai pas encore enregistré

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Deactivate()
If ThisWorkbook.Saved = False Then
 
    MsgBox "Impossible de quitter avant d'enregistrer", vbCritical
    ThisWorkbook.Sheets(1).Activate
 End If
End Sub

TEST D9.xlsm

merci

[ARTURO83]

Bonjour,

Forcez l'enregistrement au moment de quitter.
Avec l'aide de l'enregistreur de macro, enregistrez votre fichier à l'emplacement désiré, puis arrêtez l'enregistrement.
Récupérez le texte de cette macro et collez-le dans le module "thisworkbook" dans Private Sub Workbook_BeforeClose(Cancel As Boolean)

Pièce jointe 514677

Cdlt

[unparia]

Bonjour

Je n'ouvre jamais un classeur tiers et n'ai donc pas ouvert ta pièce jointe.

J'ignore pour quelle raison tu veux éviter de quitter la feuille active (et non nécessairement le classeur, ARTURO) si le classeur n'a pas été sauvegardé et ne peux donc que considérer que cette raison existe.

Le code que tu nous montres fonctionne (il affiche le message), mais à la double condition :
1) de figurer dans le module de code de la feuille considérée
2) qu'il s'agisse d'un classeur figurant déjà sur ton disque dur (et non en cours de création)

je l'aurais écrit ainsi (exemple pour la Feuille "Feuil1") :

Code :

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

1
2
3
Private Sub Worksheet_Deactivate()
  If Not ThisWorkbook.Saved Then Worksheets("Feuil1").Activate
End Sub

Maintenant :
1) tu ne nous dis pas si tu te contentes de ce message ou si tu veux tout simplement en profiter pour sauvegarder (bien évidemment possible par VBA)

2) si seule ta feuille sheets(1) doit subir ce traitement ou plusieurs autres feuilles également (et cela a une importance pour le choix du module de code à utiliser).

[dreamsodfa]

bonjour ;
merci infiniment
vous pouvez me faire une rectification sur le code
je veux empêcher de quitter la feuil avant de cliquer sur le bouton
Avec un message d'alerte
merci

[Transitoire]

Bonjour,
le code ci-dessous, vous permet lorsque vous quittez la feuille1 pour une autre de vérifier l'enregistrement du dossier et vous propose si celui ci n'est pas enregistré de le faire.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Deactivate()
If ThisWorkbook.Saved = False Then
   x = MsgBox("Feuille non enregistrée, voulez vous l'enregistrer?", vbOKCancel)
        If x = 1 Then
            ThisWorkbook.Save
        End If
End If
End Sub

Attention de respecter les conditions énoncées ci-dessus par @Unparia ()

Cordialement

[Menhir]

Dans l'aide VBA, le code est quasiment écrit : https://docs.microsoft.com/fr-FR/off...ok.beforeclose

Perso, j'écrierais plutôt :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel as Boolean) 
    Cancel = Not Me.Saved
    If Cancel Then MsgBox("Sauvegarder avant de quitter.")
End Sub

Je préfère laisser la main à l'utilisateur plutôt que de forcer la sauvegarde, au cas où l'utilisateur ait fait une modification qu'il ne souhaite pas sauvegarder.

[unparia]

Bonjour Menhir

Attention toutefois : je crois avoir compris que dreamsodfa souhaite agir en quittant la feuille (et non nécessairement le classeur)

[Menhir]

Dans ce cas, :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Deactivate()
   If Not ThisWorkbook.Saved Then
      MsgBox ("Sauvegarder avant de quitter.")
      Me.Activate
   End If
End Sub