Zellen sperren mit Marko bei aktivem Blattschutz
16.03.2005 11:09:04
Martin
Ich habe immer noch ein kleines Problem, bei der Sperrung einiger Zellen. Alle meine Tabellenblätter sollen geschützt werden (Blattschutz aktiviert). Dabei habe ich aber bestimmte Zellen (über Zellen formatieren, Schutz, Häkchen bei "gesperrt" entfernt) von der Sperrung ausgeschlossen. Jetzt möchte ich aber, dass einige dieser Zellen in Abhängigkeit vom Wert einer anderen Zelle, auch noch gesperrt werden.
konkret:
Steht in der Zelle A9 nicht "Ja", so möchte ich dass die Zellen E14:E19 zusätzlich gesperrt werden. Wird A9 wieder in "Ja" abgeändert, so sollte die Sperrung wieder aufgehoben werden.
Ich habe dazu auch schon folgenden Lösungsansatz bekommen, der aber leider nicht funktioniert, wenn ich den Blattschutz aktiviert habe:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "$E$14:$E$19"
If LCase(Range("A9")) <> "Ja" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Select
End Sub
Danke
Gruß
Martin