Verrouillage automatique d'une cellule apres saisie

Bonjour,

Je viens vers vous car je débute en VBA et j'aurais besoin de vous car je gere un tableau ou des personne doivent rentrée leur initiales dans certaines cellules et j'aimerais que une fois qu'il ont rentrée leurs initiales la cellule ce verrouilles afin qu'il ne puissent plus la modifié par la suite

Je vous joint mon fichier afin que vous compreniez mieux mon problèmes.

Les personnes doivent rentrée leur initiales dans les cellules rouge, toutes cellules bleu son déjà verrouillé.

Le MDP pour déverrouillé la feuille est ADMIN

Merci d'avance et je reste a votre disposition en cas de question supplémentaire

Bonjour,

à tester,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "ADMIN"
Set isect = Application.Intersect(Target, Range("H21:M66")) 'à adapter
If Not isect Is Nothing Then
    If Target.Interior.Color = RGB(255, 0, 0) And Target.Value <> "" Then
      Target.Locked = True
    Else
        Target.Locked = False
    End If
End If
ActiveSheet.Protect "ADMIN"
End Sub

salut!

c'est super ca fonctionne niquel merci beaucoup !