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"
Next
Worksheets(awsn).Select
End Sub
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>ActiveSheet.Unprotect "3"
ActiveSheet.Unprotect "4"
Next
Worksheets(awsn).Select
End Sub