Bereich per VBA entsperren......Bitte Hilfe
Peter
in Abhängigkeit eines Zellwertes werden mit String F die Zellen des Bereiches entsperrt; mit Hilfe von String G alle gesperrt; und mit Hilfe von String D sollen die ausgefüllten Zellen des Bereiches gesperrt bleiben, die leeren Zellen entsperrt werden...Bitte um Eure Hilfe (also für String D, die anderen beiden klappen vorzüglich:
Dim F As String
F = Sheets("Tabelle1").[C8].Value
If F = "100" Then
With Sheets("Tabelle2")
.Unprotect Password:="JA"
.Range("A2:F150").Locked = False
End With
End If
Dim G As String
G = Sheets("Tabelle1").[C8].Value
If G = "200" Then
With Sheets("Tabelle2")
.Unprotect Password:="Ja"
.Range("A2:F150").Locked = True
.Protect Password:="Ja"
End With
End If
Dim D As String
D = Sheets("Tabelle1").[C8].Value
If D = "300" Then
With Sheets("Tabelle2")
.Unprotect Password = "Ja"
.Range("leere Zellen im Bereich A2:F150").Locked = False
.Range("ausgefüllte Zellen im Bereich A2:A150").Locked = True
.Protect Password:="Ja"
End With
End If
Vielen Dank
Peter S.