Sorting protected and locked cells

[ItalianPlatinum]

Is it possible to even do this? everywhere i search it seems to be the same dilemma. Trying to just execute the below code, when all my cells are set to locked. and getting the below error message.

Sub Button1_Click()

With ActiveSheet
    .Unprotect
    .Range("8:8").AutoFilter
    .Protect , AllowFiltering:=True, AllowSorting:=True, DrawingObjects:=True, Contents:=True
End With

End Sub

VBA TESTING.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L
1
2
3
4
5
6
7
8	Field 1	Field 2	Field 3	Field 4	Field 5	Field 6
9	1	A	B	C	D	E
10	2	A	B	C	D	E
11	3	A	B	C	D	E
12	4	A	B	C	D	E
13	5	A	B	C	D	E
14	6	A	B	C	D	E
15	7	A	B	C	D	E
16	8	A	B	C	D	E
17	9	A	B	C	D	E
18	10	A	B	C	D	E
19	11	A	B	C	D	E
20	12	A	B	C	D	E
21	13	A	B	C	D	E
22	14	A	B	C	D	E
23	15	A	B	C	D	E
24	16	A	B	C	D	E
25	17	A	B	C	D	E
26	18	A	B	C	D	E
27	19	A	B	C	D	E
Sheet2

 

[Fluff]

You cannot sort locked cells on a protected sheet.

 

[ItalianPlatinum]

You cannot sort locked cells on a protected sheet.

?