macro dans classeur protégé

[Brigitte]

Bonjour tout le monde,

J'ai un classeur protégé avec des feuilles protégés.
Je voudrais par macro qu'a chaque ouverture du classeur,
la case A1 s'incrémente de +1.

Merci d'avance

@Brigitte

 

[Alain]

Bonjour,


Ci-dessous code à mettre dans un module :


Sub auto_open()
ActiveWorkbook.ActiveSheet.Unprotect ("mot_de_passe")
Range("A1") = Range("A1") + 1
ActiveWorkbook.ActiveSheet.Protect ("mot_de_passe")
End Sub

Le mot de passe est optionnel.

@+

 

[Brigitte]

Bonjour alain,

Merci, c'est ce que je voulais

@Brigitte