Verroulliage cellue non vide

Bonjour,

Je sais que cette question est souvent posée mais je ne trouve pas la solution à mon problème.

Dans mon fichier je rentre des valeurs, la couleur des cellules varie en fonction du résultat…

Je souhaite que des l'instant ou une valeur est entrée dans une cellule, que cette cellule soit verrouillée à l'aide d'un mot de passe.

Petite complication : Les 2 premières colonnes du fichier permette de valider un "Zéro" quand ce zéro n'est pas dans l'intervalle une message box apparait disant de refaire la mesure, or il est nécessaire de tenir compte de cela dans le système de verrouillage. Je veux pouvoir refaire la mesure sans avoir à déverrouiller la cellule à l'aide du mdp..

Fichier joint : mdp : mp

Merci d'avance de votre aide

slt,

un exemple pour verrouillage de cellules:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Target, Range("A:Z")) Is Nothing Or IsEmpty(Target) Then Exit Sub 
    ActiveSheet.Unprotect "mp" 
    Target.Locked = True 
    ActiveSheet.Protect "mp" 
End Sub

Bonjour et merci de votre aide : )

Mais je ne parviens pas utiliser correctement votre code dans mon cas

En effet soit cela créer des erreurs ou alors je ne vois aucun changement…

Merci de votre aide