Is it possible to protect/unprotect multple sheets

[Pauljj]

I have 8 sheets that sometimes need to be protected and unprotected at the same time, is there a more efficient way to do this then going to every single sheet and doing this one at a time ??

Cheers


Paul

 

[HalfAce]

Hello Pauljj,
Here's something you can do.
Put a command button (from the Controls Toolbox toolbar) on one of your sheets somewhere.
Change the caption on the button to "Protect Sheets" (without the quotes).
Then paste this code into the sheet module of the sheet your command button is on.
(Assumes you want to protect/unprotect all sheets in the workbook with no exceptions.)

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
Application.ScreenUpdating = False

If CommandButton1.Caption = "Protect Sheets" Then
  For Each Ws In ThisWorkbook.Worksheets
    Ws.Protect
  Next Ws
  CommandButton1.Caption = "Unprotect Sheets"
Else
  For Each Ws In ThisWorkbook.Worksheets
    Ws.Unprotect
  Next Ws
  CommandButton1.Caption = "Protect Sheets"
End If

Application.ScreenUpdating = True
End Sub

 

[Brian from Maui]

I have 8 sheets that sometimes need to be protected and unprotected at the same time, is there a more efficient way to do this then going to every single sheet and doing this one at a time ??

Cheers


Paul

Try ASAP Utilities

www.asap-utilities.com