Déverouiller certaines cellules avec une sheet.protect

bonjour,

pouvez vous m'aider à simplifier ce code qui me parâit pas très finaud...

sur ma feuille je veux dévérouiller certaines cellules sur les 2 premières lignes suivantes quand on change la valeur de l'activecell.

Private Sub Worksheet_Change(ByVal Target As Range)
LOCKE_CELLS
End Sub

[ligne][/ligne]

Sub LOCKE_CELLS()
ActiveSheet.Unprotect "mon_code_secret^^"
Dim c As Integer
c = ActiveCell.Row
If Range("a" & c) <> "" Or Range("b" & c) <> "" Or Range("c" & c) <> "" Then
Range("a" & c + 1, "a" & c + 2).Locked = False
Range("b" & c + 1, "b" & c + 2).Locked = False
Range("c" & c + 1, "c" & c + 2).Locked = False
Range("d" & c + 1, "d" & c + 2).Locked = False
Range("e" & c + 1, "e" & c + 2).Locked = False
Range("l" & c + 1, "l" & c + 2).Locked = False
ActiveSheet.Protect "mon_code_secret^^"
End If

End Sub

merci de votre aide bon we

Bonsoir à tous,

Mot de passe "dudu" à régler

Sub LOCKE_CELLS()
Dim c As Integer
        c = ActiveCell.Row
    If Application.CountA(Range("a" & c).Resize(1, 3)) > 0 Then
      ActiveSheet.Unprotect Password:="dudu"
        Union(Range("a" & c + 1).Resize(2, 5), _
        Range("L" & c + 1).Resize(2, 1)).Locked = False
      ActiveSheet.Protect Password:="dudu"
    End If
End Sub

édit: en relisant l'énoncé, je ne pense pas que mon code ira,

essaye de joindre la feuille pour + de précisions

Amicalement

Claude