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

Similar Threads

Unprotect entire sheet 1
Target.Address Being One Of The Cells Of A Named Range 2
urgent!!!!!! 3
MACRO for cell protect after a date is reached 1
Call sub from worksheet_change 6
Worksheet change event-single column 2
Excel How to run multiple Private Sub Worksheet_Change(ByVal Target As Range) 0
protect sheet with password 2

Top