ich habe mir folgenden Code zum Einschalten des Blattschutzes über mehrere Blätter aus dem Forum kopieren können. Es sollen jedoch nicht alle Blätter gesperrt werden, sondern nur ausgewählte. Leider sind diese so zahlreich, dass es sehr mühselig wäre, alle über Worksheets("NAME").Protect "Passwort" in den Code einzubinden. Ich würde daher gern den unten aufgeführten Code unter der Bedingung ausführen lassen, dass das jeweilige worksheet eine bestimmte Farbe hat. Nun meine Fragen: Ist es möglich, die Farbe eines worksheets auszulesen? Wie kann man die dann in eine Bedingungsabfrage einbinden? Alternativ müsste ich ein anderes Unterscheidungsmerkmal finden. Ginge z.B. ein bestimmter Anfangsbuchstaben im Namen der Sheets, der nur in den ausgewählten enthalten ist und somit die Bedingung auslösen kann?
Herzlichen Dank und schöne Grüße
Tommi
Sub SchutzAn()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Protect Password:="deinPasswort"
Next
End Sub