Gesperrte Zellen automatisch markieren???

Sub Excel_CellsLocked_GrauHinterlegen()
  
  Dim Zelle As Range
  Dim lLastRow As Long, lLastCol As Long
  
  With ActiveSheet
    lLastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
    lLastCol = .UsedRange.Column + .UsedRange.Columns.Count - 1
    
    For Each Zelle In .Range(Cells(1, 1), Cells(lLastRow, lLastCol))
      If Zelle.Locked Then
        With Zelle.Interior
          .ColorIndex = 15
          .Pattern = xlLightDown-> ween glatt, dann xlSolid
          .PatternColorIndex = xlAutomatic
        End With
      End If
    Next
  End With
AUFRAEUMEN:
  Set Zelle = Nothing
End Sub