Protect/Unprotect function options

[Guest]

Hi,

I need to allow "Autofiltering=True" when the protect function turns on. Tried to create a macro for protect to get a code sample but could not make it work with the following functions:

Private Function unprotectSh(Sh As String)
z = "me"
unprotectSh = Sheets(Sh).unprotect(z)
End Function

Private Function protectSh(Sh As String)
z = "me"
protectSh = Sheets(Sh).protect(z)
End Function

When protect funtions executes, autofilter on the worksheet doesnot work.

Your help in this is greatly appreciatied, thank you.
Sincerely,
Floss

 

[Dave Peterson]

If the arrows are already present:
Private Function protectSh(Sh As String)
z = "me"
with sheets(Sh)
.Protect Password:=z, userinterfaceonly:=True
.EnableAutoFilter = True
end with
End Function

 

[Guest]

Hello Dave or Floss,

I take you post and I'm not able to have access to the contents of the
autofilter.
I see well the arrow on each cell. However nothing appends if I click on it.

Thanks for your help.
Francois

 

[Tom Ogilvy]

did you run Dave Peterson's code providing the name of the sheet where the
autofilter arrows are? (and providing the correct password of course).

--
Regards,
Tom Ogilvy

Hello Dave or Floss,

I take you post and I'm not able to have access to the contents of the
autofilter.
I see well the arrow on each cell. However nothing appends if I click on it.

Thanks for your help.
Francois

on. Tried to create a macro for protect to get a code sample but could not
make it work with the following functions:

 

[Guest]

HEllo Tom,

Thanks for helping me. IN the mean time, I have found the problem.

Thanks again,

François