View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Danny Danny is offline
external usenet poster
 
Posts: 148
Default Macro - protection with filter

Hi suzanne, I'm ussing the following and this works for me:

Private Sub Workbook_Open()

With Worksheets("FCW Tracking Recs")
.EnableOutlining = True
.Protect Password:="calibtn", Contents:=True, UserInterfaceOnly:=True
End With

Rgds,

Danny

"Suzanne" wrote:

Hello. I have a protected worksheet with a macro that unprotects, sorts,
reprotects. I've had to add the below macro in order for the filters to
function when protected. All works fine THE FIRST TIME i open the file.
When i close the file and reopen it, the filters don't work, the sort macro
will not run - unless i completely shut down Excel and restart. I don't even
get the 'enable' macros window at opening.

Can anyone help please? I got the below of this site and am not sure if
this is what's causing the problem or not. Many many many thanks!

Sub auto_open()
With Worksheets("FCW Tracking Recs")
.Protect Password:="calibtn", userinterfaceonly:=True
.EnableAutoFilter = True
End With
End Sub

--
Thank you -- Suzanne.