Using Excel 2003. I created a Reset Macro to reset all AutoFilters to “All”
in a list. The macro looks like:

Sub Reset()
Range("A6").Select
Selection.AutoFilter Field:=1
Range("B6").Select
Selection.AutoFilter Field:=2
End Sub

The above works fine until I password-protect the worksheet, and then I get
a “Run Time Error 1004 , cannot use this command on a protected t sheet”.
Even though I allow users to Sort & Use Autofilter. Any suggestions? Thanks
in advance for your help.

--
Merci!
Bonzai

try something like this

Sub Reset()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
With ws
.Unprotect Password:="password"
With .Range("A6")
.AutoFilter Field:=1
.AutoFilter Field:=2
End With
.Protect Password:="password"
End With

End Sub

--


Gary


"Bonzai" <(E-Mail Removed)> wrote in message
news:A6230B4C-CC8B-4F3A-B9D4-(E-Mail Removed)...
> Using Excel 2003. I created a Reset Macro to reset all AutoFilters to "All"
> in a list. The macro looks like:
>
> Sub Reset()
> Range("A6").Select
> Selection.AutoFilter Field:=1
> Range("B6").Select
> Selection.AutoFilter Field:=2
> End Sub
>
> The above works fine until I password-protect the worksheet, and then I get
> a "Run Time Error 1004 , cannot use this command on a protected t sheet".
> Even though I allow users to Sort & Use Autofilter. Any suggestions? Thanks
> in advance for your help.
>
> --
> Merci!
> Bonzai

Thank you very much Gary, it worked!
--
Merci!
Bonzai


"Gary Keramidas" wrote:

> try something like this
>
> Sub Reset()
> Dim ws As Worksheet
> Set ws = Worksheets("Sheet1")
> With ws
> .Unprotect Password:="password"
> With .Range("A6")
> .AutoFilter Field:=1
> .AutoFilter Field:=2
> End With
> .Protect Password:="password"
> End With
>
> End Sub
>
> --
>
>
> Gary
>
>
> "Bonzai" <(E-Mail Removed)> wrote in message
> news:A6230B4C-CC8B-4F3A-B9D4-(E-Mail Removed)...
> > Using Excel 2003. I created a Reset Macro to reset all AutoFilters to "All"
> > in a list. The macro looks like:
> >
> > Sub Reset()
> > Range("A6").Select
> > Selection.AutoFilter Field:=1
> > Range("B6").Select
> > Selection.AutoFilter Field:=2
> > End Sub
> >
> > The above works fine until I password-protect the worksheet, and then I get
> > a "Run Time Error 1004 , cannot use this command on a protected t sheet".
> > Even though I allow users to Sort & Use Autofilter. Any suggestions? Thanks
> > in advance for your help.
> >
> > --
> > Merci!
> > Bonzai
>
>
>