Unprotecting/Protecting via VBA

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

Hi,
You could use one macro for protection that include your settings and another one to unprotect. For instance:

Sub ProtectSheet()
With Sheet1
.Unprotect
.Cells.Locked = False
.Range("A1").CurrentRegion.Locked = True
.Protect , userinterfaceonly:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End With
End Sub

Sub UnprotectSheet()
Sheet1.Unprotect
End Sub

I was hoping that the macros I have in place would reapply my protection as it will be the users who will be using the macro above so didn't want to add another macro to reprotect the sheet if i can get it all in1 go.

is that possible?

Thanks

Upto you, you can put all in a single macro. Key point is that you define how you want to protect the sheet (determine the locked range)

Would I just put what you have said at the bottom of my macro when it is to be protected again?

I'm not very good at macros/VBA so will need spelling out to me haha

thanks