onbeveiligde cellen in geselecteerde rij verwijderen

[ewaldmauritz]

Onderstaande code maakt alle onbeveiligde cellen in het blad leeg.

Sub LedigOnbeveiligd()
    On Error Resume Next
    ActiveSheet.UsedRange = ""
    On Error GoTo 0
End Sub

Ik zou graag een dergelijke code hebben, maar die moet dan alle onbeveiligde cellen in de rij van de op dat moment geselecteerde cel leegmaken. Of bij een selectie van meerdere cellen, de onbeveiligde cellen in de rijen van de geselcteerde cellen.
Voorbeeld:
Cel A5 is geselecteerd. Alle onbeveiligde cellen in rij 5 moeten worden leeggemaakt.
Cel B6 t/m D10 is geselecteerd. Alle onbeveiligde cellen in rij 6 t/m 10 moeten worden leeggemaakt.

Kan iemand mij daarmee helpen?

 

[ewaldmauritz]

Iemand nog een suggestie hoe dit op te lossen?

 

[Niels28]

Zo iets

Sub LedigOnbeveiligd()
    On Error Resume Next
    Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1) = ""
    On Error GoTo 0
End Sub

Niels

 

[ewaldmauritz]

Super Niels. Het werkt precies zoals ik zou willen.
Is het nog mogelijk een beveiliging in te bouwen, zodat de macro niet werkt als het blad onbeveiligd is? Er zou dan een tekstbox moeten komen met: "Het werkblad is niet beveiligd! Deze functie werkt daarom niet."

 

[Niels28]

Daar zou ik de gebruiker niet mee lastig vallen.
nu wordt de beveiliging aangezet als de macro wordt uitgevoerd.

Sub LedigOnbeveiligd()

    ActiveSheet.Protect Password:="1234"
    On Error Resume Next
    Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1) = ""
    On Error GoTo 0
End Sub

Niels