Running Password Macro on Selected Sheets

rsulliva

Board Regular
Joined
Sep 13, 2007
Messages
116
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.

Code:
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.

Code:
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?
 
Last edited:

Some videos you may like

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

rsulliva

Board Regular
Joined
Sep 13, 2007
Messages
116
I figured it out. For anyone searching for the same answer, here is one way:

Code:
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
 

Watch MrExcel Video

Forum statistics

Threads
1,108,790
Messages
5,524,893
Members
409,609
Latest member
Channingz

This Week's Hot Topics

Top