insérer un compteur

Bonjour à tous,

Qui pourrait me dire comment insérer dans une feuille un compteur additionnant le nombre de fois où est ouvert le fichier.
Merci d'avance.

Danyel

Hello,

Met ca dans ton classeur

Private Sub Workbook_Open()
Range("a1").Value = Range("a1").Value + 1
End Sub

++

Creepy

Merci effectivement cela marche mais en enregistrant le fichier a chaque fois .
Si l'on enregistre pas ca ne prends pas en compte.
Et mon fichier ne devra jamais etre enregistrer (dailleur en passant est ce possible egalement de ne donner aucune autorisation d'enregistrer un fichier ? En protegeant la feuille peut etre )

Merci
@++