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
"François" wrote in message
...
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
"Dave Peterson" wrote:
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
Floss wrote:
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