Låse celle når den er udfyldt

Hej
Jeg har et regneark, hvor jeg gerne vil have hver enkelt celle låst, når den er udfyldt, det gælder for disse områder D10:AL20 og D25:AL35 og D40:AL50.
F.eks., hvis L14 bliver udfyldt, så skal cellen låses, evt. når regnearket gemmes.

Denne virker, men kun for én cell, hvordan får jeg den til at virke på alle celler?

Sub LockCell()
    ActiveSheet.Unprotect
    If Range("D10").Value > 0 Then
    Selection.Locked = True
    Selection.FormulaHidden = False
    End If
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub