VBA-Beispiel 063
mail schreiben
mail schreiben

alle Zellen ohne Schreibschutz farblich hervorheben

Alle Zellen in denen eine Eingabe möglich ist, werden grün angemalt.
Sub Zellen_ohne_Schreibschutz()
Dim Zelle As Range

Sheets("Tabelle1").Unprotect Password:="blau"

Cells.Interior.ColorIndex = xlNone

For Each Zelle In ActiveSheet.UsedRange
    If Zelle.Locked = False Then
       Zelle.Interior.ColorIndex = 35
    End If
Next Zelle

Sheets("Tabelle1").Protect Password:="blau"

End Sub

Download:   vba063.zip