Also, dann setz mal bei allen Zellen Gesperrt auf false (Zellen formatieren) und
pack das hier in das Tabellenmodul:
Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
tr&, tc%
tr = Target.Row
tc = Target.Column
If
tc = 4
Then
If
Target.Value =
""
Then
lockCells 0
Range(Cells(tr, 1), Cells(tr, 39)).Locked =
False
lockCells
Else
lockCells 0
Range(Cells(tr, 1), Cells(tr, 39)).Locked =
True
Target.Locked =
False
lockCells
End
If
End
If
End
Sub