Hallo, ich habe folgendes Anliegen.
Wenn in der Zelle "E4" eine 1,2,3 oder eine 4 steht, sollen bestimmte Zellen gesperrt werden. Also das Tabellenblatt soll mit PW freigegeben werden, die Zellen sollen gesperrt werden und das Blatt soll wieder gesperrt werden. Ich habe etwas geschrieben, aber es funktioniert irgendwie gar nicht(((
Private Sub Worksheet_FormatChange(ByVal Target As Range)
Application.EnableEvents = False
Me.Unprotect "Lok"
If InStr(Range("E4").Value, "1") > 0 Then
Range("F39,F42,F93,F96").Locked = True
Worksheets("7 Herstellanweisung").Protect
End If
If InStr(Range("E4").Value, "2") > 0 Then
Range("F28,F29,F39,F42,F51,F53,F62,F63,F69,F93,F96").Locked = True
Worksheets("7 Herstellanweisung").Protect
End If
If InStr(Range("E4").Value, "3") > 0 Then
Range("F19,F20,F38").Locked = True
Worksheets("7 Herstellanweisung").Protect
End If
If InStr(Range("E4").Value, "4") > 0 Then
Range("F38,F93,F96").Locked = True
Worksheets("7 Herstellanweisung").Protect
End If
Me.Protect "Lok"
Application.EnableEvents = True
End Sub
Hoffentlich könnt ihr mir helfen, ich bin langsam am Verzweifeln...