Excel Zellen sperren, abhängig von Eingabe

[T.dot]

dachte das mach ich mit:
ActiveSheet.Protect Password:="geheim"

Grundsätzlich sind eh nur die drei Felder wo eingegeben werden kann freigegeben, der Rest vom Blatt ist gesperrt.

Wenn ich jetz:
ActiveSheet.Unprotect Password:="geheim"
ActiveSheet.Range("d10").Locked = True
ActiveSheet.Protect Password:="geheim"

mach, sind auch alle anderen Felder die vorher gespert waren gesperrt, aber mein .range("d10").locked macht nix.

mfg Thomas