verwijderen van rij via inputbox - vervolg op mijn vraag van afgelopen dinsdag

[kattenbe]

Het verwijderen van een geselecteerde rij gaat nu prima. Maar ik zou graag zien dat het totale werkblad beveiligd blijft.
Dus de mogelijkheid van het alleen verwijderen van de rijen via de inputbox maar dat men niet de "andere" gegevens bijvoorbeeld kan wijzigen.

 

[edmoor]

Dat kan als het blad met een wachtwoord beveiligd is:

Sub VerwijderRij2()
    If MsgBox("Wilt u Prtn " & Cells(ActiveCell.Row(), 1).Value & " verwijderen?", vbYesNo, "Verwijder rij") = vbYes Then
        ActiveSheet.Unprotect "Je Wachtwoord"
        ActiveCell.EntireRow.Delete
        ActiveSheet.protect "Je Wachtwoord"
    End If
End Sub