Probably simple VBA issue

[percy4]

Hi all,

I've got a problem with below code. Autofitler works fine but not the built in sort function. my sheet has no protected cells so I wonder why it dosen't work.

Please help

Best regards
Per

[VBA]Sub testavsortera()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="test", userinterfaceonly:=True, AllowSorting:=True
ws.EnableAutoFilter = True
'ws.EnableSelection = xlNoRestrictions
ws.Protect
Next ws
End Sub[/VBA]

[Bob Phillips]

I think I have mentioned this before that the AllowSorting option seems to just enqable or disable the Sort button, it doesn't actually allow you to sort the data (real genius that thought up that combination!).

You need to unprotect it in VBA, sort it, then protect it again.

[percy4]

I think I have mentioned this before that the AllowSorting option seems to just enqable or disable the Sort button, it doesn't actually allow you to sort the data (real genius that thought up that combination!).

You need to unprotect it in VBA, sort it, then protect it again.

My cells are only hidden not protected but I still can't get it to work.

Per

[Bob Phillips]

My cells are only hidden not protected

[vba]

ws.Protect Password:="test", userinterfaceonly:=True, AllowSorting:=True
[/vba]

Those two statements seem contradictory to me.

[percy4]

Those two statements seem contradictory to me.

Hmm thats right. But the settings for the cells are not locked. I've unchecked that box (in cell properties).

[Bob Phillips]

Doesn't matter, the sheet is protected. My previous comment stands.