Worksheet Protection

[wmtsub]

I have several protected worksheets with multiple passwords. I am not permitted to change the PW.
I would like a script to unlock all the sheets so I thought of this, but it does not work. Any Ideas?



Sub Un_Protect_All()
awsn = ActiveSheet.Name
For Each Sheet In Application.Worksheets
Sheet.Activate
ActiveSheet.Unprotect
ActiveSheet.Unprotect "1"

ActiveSheet.Unprotect "2"
ActiveSheet.Unprotect "3"
ActiveSheet.Unprotect "4"​

<strike></strike>


Next
Worksheets(awsn).Select
End Sub

 

[Joe4]

Duplicate: https://www.mrexcel.com/forum/excel-questions/1100673-paswword-unprotect-sheets-multi-passwords.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

You actually have a reply in your other post that you never replied to.