Ich muss per VBA einzelne Zellen schützen können.
Z.B.:
Wenn Zelle A1=1 dann Zellen B1:C5 schützen
Wenn Zelle A1=2 dann Zellen B10:C15 schützen
geht das?
Gruss
Isha
Private Sub Worksheet_Change(ByVal Target As Range)
'Zelle A1 darf nicht gesperrt sein (Häkchen "Gesperrt"entfernen),
'bevor das Makro in das Blattmodul kopiert wird
'bei Änderungen in A1
If Target.Address(0, 0) = "A1" Then
'Blattschutz aufheben, Paßwort = Test
ActiveSheet.Unprotect "Test"
'Fallunterscheidung
Select Case Target.Value
Case Is = 1
Range("B10:C15").Locked = False
Range("B1:C5").Locked = True
Case Is = 2
Range("B10:C15").Locked = True
Range("B1:C5").Locked = False
Case Else
Range("B1:C15").Locked = True
End Select
ActiveSheet.Protect "Test"
End If
End Sub