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(((
Hoffentlich könnt ihr mir helfen, ich bin langsam am Verzweifeln...
CodeTags korrigiert ~VaporiZed
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(((
Visual Basic-Quellcode
- 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...
CodeTags korrigiert ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()