Ich habe einige Zellen als Schaltfläche umfunktioniert.
Der Rest der Tabelle soll geschützt bleiben.
Jedesmal wenn ich den Blattschutz aktiviere, kommt ein
Laufzeitfehler.
Was kann ich tun?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:AL14")) Is Nothing Then Exit Sub
If Target.Value = "X" Then
Target.Value = ""
Target.Interior.ColorIndex = 0
Else:
Target.Value = "X"
Target.Interior.ColorIndex = 22
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:AL14")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect ("Passwort")
If Target.Value = "X" Then
Target.Value = ""
Target.Interior.ColorIndex = 0
Else:
Target.Value = "X"
Target.Interior.ColorIndex = 22
End If
ActiveSheet.protect ("Passwort")
End Sub