Unprotect/Protect

[Quietus]

I have a work book that has multiple Sheets in it (32sheets total). Now each one of them have a protect sheet with password to unprotect. They all have the same password. My question is there any way to protect the entire work book with the same settings(Select Unlocked Cells, Format Cells, edit Objects) with having to only enter in password once to unlock all the sheets? Or is the only way to unlock and lock each sheet separately?

Thanks in advance for any and all help.

 

[Caleeco]

Hello,

You could create a new Module, and use the code below:

Option Explicit


Const strPassword As String = "Unlock"


Sub LockAll()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:=strPassword
    Next ws
End Sub


Sub UnlockAll()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:=strPassword
    Next ws
End Sub

The password for the sheets is currently set as "Unlock", change this to whatever you want. There are obviously 2 sub-routines, one to lock all worksheets, and one to unlock all worksheets.

Hope that helps

Caleeco

 

[Jan Mach]

You can use one subroutine for both cases

Sub LockAll(Byval b as Boolean)
[LEFT][COLOR=#333333][FONT=monospace]Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If b Then ws.Protect strPassword Else [COLOR=#333333][FONT=monospace]ws.Unprotect strPassword
[/FONT][/COLOR]Next
[/FONT][/COLOR][/LEFT]
End Sub

where
LockAll True
locks and
LockAll False
unlocks.