Question

I learned that I need to write a macro if I want users to delete rows on a protected sheet.

This is the code I got by googling around:

Sub delete_row()
    ActiveSheet.Unprotect Password:="justme"
        ActiveCell.EntireRow.Delete
    ActiveSheet.Protect Password:="justme"
End Sub 

Where exactly should I place this code? Will it work if multiple rows are deleted etc.?

MrExcel is down today, so limited options.

Answer 1

Paste this in a module

Option Explicit

Sub DeleteMe()
    Dim Ret As Range, Cl As Range

    On Error Resume Next
    Set Ret = Application.InputBox("Please select the Cells", "Delete Rows", Type:=8)
    On Error GoTo 0

    ActiveSheet.Unprotect Password:="justme"

    If Not Ret Is Nothing Then Ret.EntireRow.Delete

    ActiveSheet.Protect Password:="justme"
End Sub

When you run the above macro it will ask you to select the cell(s). Whatever cells you select, the entire row will get deleted.