Automatically move an entire row form a protected sheet to different sheet

Hi guys!

Currently I run the following code to delete rows from one sheet and paste it to another one.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Then Exit Sub
Application.EnableEvents = False
If LCase(Target) = "delete" Then
With Sheets("Deleted")
lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Cut Destination:=.Cells(lr, 1)
End With
End If
Application.EnableEvents = True
End Sub

Everything work just fine, but if I protect with password the original sheet, the code stops working. No error msgs, no nothing!
Any help here?

Very much obliged!