protect sheet using vba


J

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,
 
Ad

Advertisements

T

Tom Hutchins

In XL2003:

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

Hope this helps,

Hutch
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top