Protected Worksheet w/AutoFilters

[sorensjp]

Hi,

I'm getting a 1004 Run time Error on the attached Workbook. I've added Worksheet protection to each Worksheet. I get an error on the 'WEAPS_QUAL_RPTS' worksheet when I run a "Clear Filter" Macro assigned to the button on the same sheet.

The Attached file is an .xlsb version to reduce size. The Sheet Protection Password is: Admin

WEAPS_RPTS_MISC Module Code (the line highlighted in bold is where I get the error in question.)

Please Login or Register  to view this content.

ProtectAll_UnProtectAll Module

Please Login or Register  to view this content.

Additionally, I was hoping to protect the Cells in the Table be protected from editing but allow for selection (I have conditional formatting to highlight selected row.)

Thank you in advance for reading my post.
V/r,
Jim

[Keebellah]

It runs perfectly well here, no errors
I don't see the BOLD line you mention

[sorensjp]

It runs perfectly well here, no errors
I don't see the BOLD line you mention

Hmm,
Thank you for looking at the project. The ERROR is on the first section of code. I posted. I may have inadvertently saved the file without the error as I was trying different solutions and combinations.

I’m not really sure what my best approach is to protecting the individual sheets from inadvertent deletions or changes in general. I’m thinking of just simply removing the VBA code for Sheet Protecting and just use the application itself. I’m still very much learning Excel and not always choosing the best approach.

V\r,
Jim

[Keebellah]

Protecting and Unprotecting using VBA is a good option.
Keep in mind that for many actions you don not need to unprotect if the changes are made using a macro, as the parameter USerInterFaceOnly:=True tells you, this means that the protection only applies to user interaction not macros