Fermeture d'un classeur

[Luigi]

Bonjour à tous,

J'utilise la macro ci-dessous pour enregistrer automatiquement mon classeur à la fermeture:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Mais ce classeur peut-être utilisé par des personnes uniquement en consultation et ils ne feront auqu'une saisie. Quel est le code à utiliser pour ne pas enregsiter mon classeur s'il n'y a pas eu de modification de faite.

Merci

 

[mromain]

Re : Fermeture d'un classeur

bonjour Luigi,

le test "If ThisWorkbook.Saved = True" te permet de savoir si ton classeur n'a eut aucune modification depuis le dernier enregistrement (ou l'ouverture le cas échéant).

je pense qu'il y a d'autres solutions, comme créer une copie en "lecture seule" à destination des gens qui consultent seulement les données.

a+

 

[Luigi]

Re : Fermeture d'un classeur

Merci mromain ça marche en utilisant la condition "False", ci dessous le code que j'utilise pour fermer le classeur s'il n'y a pas eu de modification.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
ActiveWorkbook.Save
End If
End Sub

A+