Sperren von Zellen nach Eintrag
20.04.2006 14:36:56
Zellen
mein Problem ist, dass in einer Spalte Eintragungen vorgenommen werden sollen und danach automatisch die Zelle gesperrt wird.
Im Forum habe ich folgendes gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
If z.Value <> "" Then
ActiveSheet.Unprotect Password:="test"
z.Locked = True
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="test"
End If
Next z
End Sub
Es funktioniert in der Weise, dass in alle leeren Zellen geschrieben werden kann, danach die Zelle geschützt wird, das ganze Blatt betreffend.
Ich möchte aber nur, dass eine einzige Spalte so behandelt wird, in allen anderen nach Eintrag diese nicht gesperrt sind.
Danke W. Sachse