Zellschutz auf farbigen Zellen
11.09.2003 11:04:37
Torsten K.
folgendes Problem habe ich:
In zwei gesperrten Worksheets gibt es farbige Zellen (ColorIndex=35), die zunächst nicht gesperrt sind, weil sie für Eingabezwecke offen sein müsssen. Ich möchte den Schutz auf diesen Zellen aber auf Knopfdruck aktivieren bzw. deaktivieren können. Vorher muß dafür der Blattschutz aufgehoben werden und nachher natürlich wieder eingestellt werden. Als VBA-Einsteiger komme ich mit dem bisher aus Einzelteilen gebasteltem Code jetzt nicht weiter. Der Code läuft zwar durch, macht aber nicht das, was ich gern hätte.
Kann mir jemand Hilfestellung geben?
Vielen Dank im voraus.
Gruß
Torsten
Private Sub cmb_EingFeldProt_Click()
Dim Arr, i%
Arr = Array("Entries", "BUUSP")
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Unprotect password:="Kennwort"
Next i
With Sheets("Entries")
Range("AD5", "AE456").Select
'der Range soll die beiden Spalten AD und AE ansprechen, besser wär's aber,
wenn das ganze Worksheet angesprochen werden kan
If Selection.Interior.ColorIndex = 35 Then
Cells(1, 1).Select
Selection.Locked = True
End If
End With
Arr = Array("Entries", "BUUSP")
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Protect password:="Kennwort"
Next i
End Sub
Anzeige