EALA FREYA FRESENA

Sub Gesperrte_Zellen_kurz_einfärben()
Dim zelle As Range
 
For Each zelle In ActiveSheet.UsedRange   ' für jede Zelle im Benutzten Bereich
    If zelle.Locked = True Then   ' wenn Zelle einen Gesperrt(Zellschutz) dann
    zelle.Interior.Color = RGB(225, 255, 225)   'Färbe die Zelle hellgrün
End If
Next zelle
 
Application.Wait Now + TimeSerial(0, 0, 5) 'lege eine Pause von 5 Sekunden ein
For Each zelle In ActiveSheet.UsedRange
    zelle.Interior.ColorIndex = xlNone   ' dann nehme die Farbe wieder heraus
Next zelle
Range("B7").Activate
 
End Sub