Macro does not work with protected sheet

Hi there,

I have a macro that transfer disposed items to another sheet.
However, it appears that when I lock the cells on both sheets (D4:D500) and (F4:F500), the macro button (Archive Disposed) won't run and has an error of 400.

Currently I have this macro in my workbook:

Option Explicit
Sub TestKen()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Name <> "Sheet2" Then
With ws.[A4].CurrentRegion
.AutoFilter 6, "Disposed"
.Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End If
Next ws

Application.ScreenUpdating = True

End Sub


Any idea how to solve this issue?
Password I set for the worksheets are 123
I assume I need a macro that unprotects the sheets, run the macro, and then re-protect the sheets again?

Thanks in advance
Cheers Ken