multiple sheet unprotect

[jammoca]

Is there a way to protect or unprotect multiple sheets at a time.

Currently, I have a wokbook that can have up to 60 sheets and occasionally I might need to unprotect all sheets to make amendments to cells that are protectd.

Unprotecting one sheet at a time is a pain in the rear

Any clues ?

 

[Wookie]

I use the add in downloaded from http://www.asap-utilities.com/

It is one of the recommended add ins on this board and it is genius

 

[Legacy 51064]

The download is nice, but if you have to send the document to someone with out it...

I created a use form with a Text box and Enter button on it. Right click on the User Form in the project viewer and add this code to it:

Private Sub CommandButton1_Click()

'Deactivates the alerts and screen updates
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

On Error GoTo ERR
Dim wSheet As Worksheet
   For Each wSheet In Worksheets
      If wSheet.ProtectContents = True Then
         wSheet.Unprotect Password:=TextBox1.Text
      Else
         wSheet.Protect Password:=TextBox1.Text
      End If
   Next wSheet
Unload Me
Exit Sub

ERR:
resp = MsgBox("You Entered the wrong password")
Unload Me

End Sub

I then added a module button to run the macro and added this code to run:

Sub Password()
    UserForm1.Show
End Sub

 

[ROLSON666]

protecting multiple sheets at once

the asap utility worked fine....now I would like to know if protecting multiple sheets can be done on multiple files/workbooks at the same time.????

 

[dave3009]

Hi There

Try this

Sub Unprotect()

Dim ws As Worksheet
Dim wb As Workbook
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
  ws.Protect 
Next ws

End Sub

 

[ROLSON666]

UNPROTECT SHEETS

thanks, this worked excelent.