Running Password Macro on Selected Sheets

[rsulliva]

Guys,

I would like to be able to run the following macro on all selected sheets. If I run in on one sheet at a time it works great but I have yet to figure out how to run it after selecting, for instance, "sheet1" and "sheet3". The target sheets will never be the same, but I could select as many as 50 sheets at a time.

Sub UnProtectSheet()
Password = "mypassword"
ActiveSheet.Unprotect Password
End Sub

This is the one I have been working on but it breaks at the "wks.unprotect password" line.

Sub UnProtectSheet()
Password = "mypassword"
Dim mySelectedSheets As Sheets
Dim wks As Worksheet
Set mySelectedSheets = ActiveWindow.SelectedSheets
For Each wks In mySelectedSheets
wks.Unprotect Password                          '<-------code stops here
Next wks
Set mySelectedSheets = Nothing
End Sub

Anyone know how to correct this?

 

[rsulliva]

I figured it out. For anyone searching for the same answer, here is one way:

Sub UnProtectMultipleSheets()
'Allows for selecting one or more sheets to unprotect.
Range(ActiveCell.Address).Name = "StartCell"
Password = "mypassword"
Dim mySelectedSheets As Sheets
Dim wks As Worksheet
Set mySelectedSheets = ActiveWindow.SelectedSheets
For Each wks In mySelectedSheets
wks.Select
ActiveSheet.Unprotect Password
Next wks
Set mySelectedSheets = Nothing
Application.Goto "Startcell"
End Sub