mit Hilfe des Forums habe ich verschiedene Varianten erfahren, wie Zellen mit VBA geschützt werden können, die ich nach meinen Bedürfnissen angepasst habe:
1. Es wird ein bestimmter Zellbereich ausgewählt und geschützt
2. Es werden Zellen mit Formeln geschützt
Meine Versuche für eine 3. Variante sind gescheitert:
3. Es sollen alle Zellen geschützt werden, die mit Farbe gefüllt sind??
Bisher:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Variante 1 Zellbereiche auswählen
If Target.Row <= 5 And Target.Column <= 17 Then
MsgBox "In diesem Bereich dürfen keine Änderungen stattfinden", 16, "Warnung"
Application.EnableEvents = False
Cells(6, Target.Column).Select
Application.EnableEvents = True
End If
' Variante 2 Zellen mit Formeln schützen
If Target.HasFormula Then
MsgBox "In diesem Bereich dürfen keine Änderungen stattfinden", 16, "Warnung"
Application.EnableEvents = False
Cells(6, Target.Column).Select
Application.EnableEvents = True
End If
' Variante 3 Zellen mit Farbe schützen
' ?????????
End Sub
Code eingefügt mit: Excel Code Jeanie
Wer kann einen Ansatz oder eine Lösung anbieten?
Vielen Dank!
mfg
Erich