I have data some of which is locked, but need to be able to filter this
ideally i would like to do this without unlocking the cells is this possible?

At the moment I have the following code used to put filter option on or off,
but when i put it on it locks the cells so doesnt work how can i get it to
only lock if filter is off?

Sub Filter()
Sheets("samples").Select
Cells.Select
ActiveSheet.Unprotect Password
Range("A3:F3").Select
Selection.AutoFilter
Sheets("samples").Select
Cells.Select
ActiveSheet.Protect Password
End Sub

Thanks