Zellschutz farbig markierter Zellen
08.09.2003 08:44:04
Torsten K.
ich hoffe, ich nerve nicht mit meinem Anliegen. Übers Wochenende habe ich mir Gedanken gemacht, wie ich den Zellschutz von Zellen steuern kann, die dem User als Eingabemöglichkeit zur Verfügung stehen. Dabei ist mir eingefallen, daß diese Zellen grün unterlegt sind (Interior.ColorIndex = 35). Kann mir nun jemand helfen, den unten aufgeführten Code so zu verändern, daß sich der Zellschutz nur auf die Zellen bezieht, die grün unterlegt sind?
Z.B. Tabelle1, Spalte A, Spalte C und Spalte F, oder ist es einfacher das gesamte Worksheet darauf abzuprüfen?
Vielen Dank für Eure Hilfe.
Private Sub cmb_EingFeldProt_Click()
'Code verändert Zellschuz der Zellen, denen auf der Oberfläche ein
Name zugewiesen wurde (hier z.B. "EingBU")
Dim Arr, i%
Arr = Array("Tabelle1", "Tabelle2") usw.
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Unprotect password:="Kennwort"
Next i
With Sheets("Tabelle1")
.Range("EingBU").Locked = True
End With
usw.
Arr = Array("Tabelle1", "Tabelle2") usw.
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Protect password:="Kennwort"
Next i
End Sub