Verrouiller une feuille en auto

Bonjour à tous,

Je souhaiterai si possible quand je quitte une feuille que cette dernière soit protègée automatiquement par un mot de passe.

exp :

Shets("feuil").selext

ActiveSheet.protec

a ce moment je voudrai qu'il installe un mot de passe en automatique "cfn3cfn".

Merci de votre aide qui m'a toujours permis d'avancer dans mes projets.

Amicalement

Noel

Bonjour,

OK, lorsque tu quittes la feuille, on la protège automatiquement...

Pour la déprotéger, ce sera donc en manuel?

@ te relire

Re,

Bonjour Cousinhub,

Tu es très matinal.

C'est exactement ce qu je désire.

Merci d'avance.

Amicalement

Noel

Re-,

Tu es très matinal.

Cela dépend, si tu considères que 16H00 est matinal....(regarde ma localisation....)

Dans le ThisWorkbook, place ce code :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Protect "cfn3cfn"
End Sub

Ainsi, chaque fois que tu quittes un onglet, celui-ci est protégé

Bonne journée

Re,

Je viens de tester ton code sous PC

me donne l'erreur suivante : ERREUR DE COMPILATION TYPE DEFINI PAR L'UTILISATEUR NON DEFINI

Et pourtant ca fonctinne sous MAC

Merci de voir où est l'erreur

Amicalement

Noel

Re-,

Regarde dans le VBE, Outils/Références, s'il n'y a pas un ou des "MANQUANTS"

S'il y en a décoche-le(s)

Re,

Merci de ton toujours aussi précieuse.

Amicalement

Noel