Interdire Impression si modification non sauvegardée

[Nevos]

Bonjour le Forum,

Je cherche à interdire l'impression d'un fichier excel si une modification du fichier à été effectuée sans être sauvegardée.

Pour empêcher l'impression j'utilise:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Mais je ne vois pas encore comment faire avec modification.

Merci d'avance de votre aide.

 

[Dranreb]

Re : Interdire Impression si modification non sauvegardée

Bonsoir
Mettez:
Cancel = Not ThisWorkbook.Saved
À +

 

[Nevos]

Re : Interdire Impression si modification non sauvegardée

Merci pour cette réponse très rapide.

J'ai testé et c'est nickel.

A +🙂

 

[Nevos]

Re : Interdire Impression si modification non sauvegardée

Re salut,

J'ai encore une question. Maintenant que je vois comment empêcher l'impression si sauvegarde non effectuée.
Comment faire pour dire que si il n'y a pas de modification du fichier, l'impression est autorisé?
En gros:
Si pas de modification -> impression ok.
Si modification -> impression nok -> merci de sauvegarder pour imprimer.

Merci d'avance

 

[Dranreb]

Re : Interdire Impression si modification non sauvegardée

Normalement la propriété Saved est True s'il n'a pas été modifié depuis son ouverture ni sa dernière sauvegarde.
Cordialement