Geschütze Zellen markieren (VBA)


Geschütze Zellen markieren (VBA)

Geschütze Zellen markieren (VBA)

Das Makro prüft alle verwendeten Zellen der aktiven Tabelle ab, ob die jeweilige Zelle gesperrt ist. Ist das der Fall, wird die Zelle über den ColorIndex rot eingefärbt. Wenn Sie eine andere Farbe verwenden wollen, dann ändern Sie bitte den ColorIndex entsprechend ab.

 

Sub GeschuetzteZellenKennzeichnen()

Dim Zelle As Range

 

For Each Zelle In ActiveSheet.UsedRange

 If Zelle.Locked = True Then

   Zelle.Interior.ColorIndex = 3         

 End If

Next Zelle

End Sub