Unprotect Sheets

[brooklyn2007]

Hello. I have many sheets in my workbook with protection, same password for all of them. When I need to make a change to all these sheets, i have to go over one by one to unprotect them in order to do the changes. Is there any way to unprotect at once all the selected sheets? Also, is there any way to protect at once all the selected sheets? Thanks

 

[FinancialAnalystKid]

Prefecto!

Thanks!

Can we expand???

Instead of a 'set' password can we have the macro 'ask' the password before continuing? That way this can be used for any workbook other than the set hard coded pass?

 

[VoG]

Try

Sub ProtSheets()
Dim ws As Worksheet
Dim SheetsIndex(1 To 100)
Dim i As Long, j As Long
For Each ws In ActiveWindow.SelectedSheets
    i = i + 1
    SheetsIndex(i) = ws.Index
Next ws
Sheets(SheetsIndex(1)).Select
For j = 1 To i
    Sheets(SheetsIndex(j)).Protect Password:=InputBox("Enter password for " & Sheets(SheetsIndex(j)).Name)
Next j
End Sub

 

[FinancialAnalystKid]

Sub SelectedSheetsProtect()

'VOG MrExcel

Dim ws As Worksheet
Dim SheetsIndex(1 To 100)
Dim i As Long, j As Long

pass = InputBox("Enter password")


For Each ws In ActiveWindow.SelectedSheets
    i = i + 1
    SheetsIndex(i) = ws.Index
Next ws
Sheets(SheetsIndex(1)).Select
For j = 1 To i
    Sheets(SheetsIndex(j)).Protect Password:=pass
Next j
End Sub


Sub SelectedSheetsUnprotect()

'VOG MrExcel

Dim ws As Worksheet
Dim SheetsIndex(1 To 100)
Dim i As Long, j As Long

pass = InputBox("Enter password")

For Each ws In ActiveWindow.SelectedSheets
    i = i + 1
    SheetsIndex(i) = ws.Index
Next ws
Sheets(SheetsIndex(1)).Select
For j = 1 To i
    Sheets(SheetsIndex(j)).Unprotect Password:=pass
Next j
End Sub

Nice work... I moved the password to the top for those that have the same password for all sheets selected so you don't have to enter passwords for each sheet. But at least now the password isn't hard coded and you can use this for any workbook!

Thanks for the great code!

 

[VoG]

Great stuff. Just be aware that if a user mis-types a password and can't get back in then we won't be able to help (forum rules).