AW: eine Zelle auswählen andere sperren VBA
19.12.2017 14:29:05
Jörg
Hallo Lia,
sperren heißt in dem Fall Blattschutz,d.h. Du musst vorher definieren, welche Zellen (außer A/C/E 1) gesperrt werden oder nicht. Paßwort ist "aaa". Sobald ein "X" gesetzt ist sind die beiden anderen Zellen für die Eingabe dauerhaft gesperrt (oder Du musst das Makro entsprechend erweitern.
Ciao Jörg
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target.Value = "X" Then
Range("A1").Locked = False
Range("C1").Locked = True
Range("E1").Locked = True
End If
If Target.Address = "$C$1" And Target.Value = "X" Then
Range("A1").Locked = True
Range("C1").Locked = False
Range("E1").Locked = True
End If
If Target.Address = "$E$1" And Target.Value = "X" Then
Range("A1").Locked = True
Range("C1").Locked = True
Range("E1").Locked = False
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="aaa"
'ActiveSheet.Unrotect, Password:="aaa"
End Sub