Vérouiller une celulle automatiquement

[anonymous13]

Ce lien n'existe plusBonjour,
Je recherche un moyen de vérrouiller automatiquement une celulle après saisie.
Et seul un administrateur avec mot de passe peut la dévérouiller et la modifier.
Avous une solution ?

Merci milles fois.

 

[wilfried_42]

Re : Vérouiller une celulle automatiquement

Bonjour anonymous, le fil

verrouille les cellules de la feuille, deverouille les cellules à saisir
Protege la feuille avec le mot de passe titi
met le code suivant dans la partie VBA de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Feuil1").Unprotect "titi"
    Target.Locked = True
    Sheets("Feuil1").Protect "titi"
End Sub

saisi une cellule deverouillée et entrée

salutations

 

[anonymous13]

Re : Vérouiller une celulle automatiquement

Bonjour anonymous, le fil

verrouille les cellules de la feuille, deverouille les cellules à saisir
Protege la feuille avec le mot de passe titi
met le code suivant dans la partie VBA de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Feuil1").Unprotect "titi"
    Target.Locked = True
    Sheets("Feuil1").Protect "titi"
End Sub

saisi une cellule deverouillée et entrée

salutations

Merci pour votre réponse mais ca ne semble pas fonctionner.
Je voudrais que les cases de la ligne 8 de mon tableau soient vérouillées automatiquement après avoir appuyé sur entrée, de manière à ce que l'utilisateur ne puisse pas revenir dessus, sauf via un mot de passe admin.

Merci par avance.