protect sheet using vba

[Jock]

Hi,
If I manually protect a sheet and select use auto filter, that function can
be used when the sheet is protected.
Using a private sub, if I unprotect the sheet, allowing changes to be made,
and then re-protect it, the facility to use auto filter is lost.
Is there a line I can add to this:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="sulby"
On Error GoTo ws_exit:
Application.EnableEvents = False

"my changes"

ws_exit:
Application.EnableEvents = True
'ActiveSheet.Protect Password:="sulby"
End Sub

to keep the autofilter functionality?

Thanks,

 

[Tom Hutchins]

In XL2003:

ActiveSheet.Protect Password:="sulby", _
AllowFiltering:=True

Hope this helps,

Hutch