Sub UnProtectAllSheets()
Application.Screenupdating = False
for each Shts in Sheets
Shts.Unprotect password:="Put the password here"
Next
Application.Screenupdating = True
End Sub
Bob Umlas
Excel MVP

"ordnance1" wrote:

The code below is what I want to use to protect my worksheets (if a certain
condition is met) Everything works well in that the Protect sub prevents the
selection of any cells. My problem is with the UnProtect routine. When it
runs it asks for a password (which I would prefer not to have) and it
displays each worksheet as it runs. When the Protect code runs it does not
display each worksheet yet each one is protected.


Dim Shts As Worksheet
Sub UnProtectAllSheets()

Shts.Unprotect
Next


End Sub

Sub ProtectAllSheets()

For Each Shts In ThisWorkbook.Worksheets
Shts.Protect EnableSelection = xlNoSelection
Next

End Sub


.