Slette alt der ikke er beskyttet

Sub DeleteUnlockedCells()
    Dim rngCell As Range, Ark As Variant, I As Integer
    Dim rngUnlocked As Range
    Ark = Array("Ark1", "Ark2", "Ark3")    ' ret og set selv resten af arknavnene ins
    For I = 0 To UBound(Ark)
        For Each rngCell In Worksheets(Ark(I)).UsedRange
            If rngCell.Locked = False Then
                rngCell.ClearContents
            End If
        Next rngCell
    Next
End Sub


Bemærk at koden tjekker om der er et flueben i låst eller ej, hvis der ikke er flueben, så tømmes cellen.

Det vil sige at selv i et ubeskyttet ark, tømmes kun de celler med den egenskab.

et svar ;-))