I am trying to have a VBA where it unprotects the sheet, does what it needs to do then protects the sheet again.

When it reprotects the sheet it limits the user back to "select locked/unlocked cells"

could someone please let me know what I need to put so that it puts the same level of protection on?

Sub Chrisbrough2()
Sheets("Filter - non relevant ").Unprotect Password:="Cloud"
With Sheets("Filter - non relevant ")
.Range("E5:E" & .Range("A" & Rows.Count).End(3).Row).AutoFilter 1, "NO"
.Range("A6:D" & .Range("A" & Rows.Count).End(3).Row).SpecialCells(12).Copy Sheets("Step 2 - Filtered (Long List)").Range("A" & Rows.Count).End(3)(2)
.AutoFilterMode = False
Sheets("Filter - non relevant ").Protect Password:="Cloud"
Sheets("Step 2 - Filtered (Long List)").Select
End With
End Sub