Gesperrte Zellen markieren

ich suche einen Weg um die gesperrten (oder ungesperrten) Zellen zu markieren bzw. in eine Variable zu übernehmen.

Die Lösung sollte ohne Schleife auskommen, wie das folgende Beispiel für die Konstanten.

Sub Zellen_Mit_Konstanten()
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
End Sub

Vielen Dank
Helga