|
Hallo,
danke schon mal für die Antwort.
Habe mal versucht, das folgend umzusetzten:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Range("D5,D6:G6,D7,D8:G8,D9,D10").Value) = False Then
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End If
End Sub
Allerdings wird mein Tabellenblatt nicht komplett gesperrt, wenn in der angegebenen Range etwas steht.
Bei D6:G6 und D8:G8 handelt es sich um verbundene Zellen.
Bin leider ein absoluter Neuling und habe keine Ahnung was der Grund ist.
Vielen Dank für Hilfe!
|