Utiliser la propriété Enregistrée pour déterminer si un classeur a changé

Résumé

Vous pouvez déterminer si des modifications ont été apportées à un classeur en vérifiant la propriété Enregistrée du classeur. La propriété Enregistrée retourne une valeur True ou False selon que les modifications ont été apportées au classeur.

Note

Il est possible de définir la propriété Enregistrée sur True ou False. La section « Plus d’informations » de cet article contient des exemples de macros qui illustrent l’utilisation de la propriété Saved.

Différentes conditions de votre feuille de calcul, telles que la présence de fonctions volatiles, peuvent affecter la propriété Enregistrée.

Plus d’informations

Microsoft fournit des exemples de programmation à titre d’illustration uniquement, sans garantie expresse ou implicite. Cela inclut, sans y être limité, les garanties implicites de qualité marchande et d’adéquation à un usage particulier. Cet article considère que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support technique Microsoft peuvent vous aider à expliquer les fonctionnalités d’une procédure particulière, mais ils ne modifient pas ces exemples pour fournir des fonctionnalités ou des procédures de construction ajoutées pour répondre à vos besoins spécifiques.

Exemple 1 : Macro pour afficher le message si le classeur actif a des modifications non enregistrées

Sub TestForUnsavedChanges()
    If ActiveWorkbook.Saved = False Then
        MsgBox "This workbook contains unsaved changes."
    End If
End Sub

Exemple 2 : Macro pour fermer le classeur et ignorer les modifications

Cette macro ferme le classeur qui contient l’exemple de code et ignore les modifications apportées au classeur en définissant la propriété Enregistrée sur True :

Sub CloseWithoutChanges()
    ThisWorkbook.Saved = True
    ThisWorkbook.Close
End Sub

Exemple 3 : Une autre macro pour fermer le classeur et ignorer les modifications

Sub CloseWithoutChanges()
    ThisWorkbook.Close SaveChanges:=False
End Sub

References

Pour plus d’informations sur l’utilisation de l’exemple de code dans cet article, consultez Comment exécuter des exemples de code à partir d’articles de la Base de connaissances dans Office 2000.