Cannot Reset a Protected List

[Guest]

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.

 

[Gary Keramidas]

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

 

[Guest]

Thank you very much Gary, it worked!
--
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