Hallo zusammen,
Ich stehe hauptsächlich vor dem Problem eine Reihe oder Zelle
Nach Eingabe zu schützen
Desweiteren möchte ich gern wenn ich in Zelle X etwas Eingebe
In A1 Datum und Uhrzeit.
Hier meine Ansätze. Damit sollten sich aber immer nur einzelne Zellen nicht die komplette Zeile und ich bekomme es einfach nicht hin die anderen Zellen nach Eingabe zu sperren.
Vielen Dank schonmal
With ActiveSheet
If Target.Column = 1 Then ' Eingabe in Spalte A
If Target.Value <> "" Then
ActiveSheet.Unprotect Password:="123"
.Cells(Target.Row, 3).Value = Format(Date, "dd.mm.yyyy")
.Cells(Target.Row, 3).Locked = True
Target.Locked = True
ActiveSheet.Protect Password:="123"
End If |