Clearing Autofilters on Protected Sheet

[spareshoota]

Hi,

I don't know where else to go, so I help someone can help. My level of expertise in Excel is very high, but not in VBA. I just started to learn VBA but have a long way to go.

I have a spreadsheet that is used by a group of people, one at a time. It is password protected and contains both locked & unlocked cells. My data range is A4:AC1299. While protected, I have the autofilters on, but most of the time, people are filtering on multiple columns. Since it's protected, they aren't able to just hit "clear" to return to all lines of the table.

I want them to be able to hit a button that runs a macro that clears all the filters but leaves the arrows so that they can refilter if necessary. I've tried 5-6 different macros I've found on the Internet, but all of them either don't work or produce a runtime error '1004' or some other sort of error.

Anybody that can come up with a macro that does this would be greatly appreciated. Unfortunately, I can't put up the spreadsheet because it's for work. Thanks.

 

[spareshoota]

Here is the main one I tried that continues to give me errors:


Sub ShowAllRecords() If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub

It generates the error "Run-time error '1004': ShowAllData method of Worksheet class failed" and then highlights
ActiveSheet.ShowAllData </pre>