View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jock Jock is offline
external usenet poster
 
Posts: 440
Default protect sheet using vba

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,
--
Traa Dy Liooar

Jock