Hi
This will work and a password is not required

Macro for protecting and unprotecting worksheets.
NOT USING A PASSWORD.

Sub SheetLock()
'
' SheetLock Macro
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next ws
Application.ScreenUpdating = True
End Sub


Sub SheetUnLock()
'
' SheetUnLock Macro
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect
Next ws
Application.ScreenUpdating = True
End Sub

HTH
Michael M

"MWB" wrote:

I have a booklet with about 20 sheets. I would like to unprotect and protect
the sheets together, not one at a time. Protecting the workbook doesn't
protect the cells.

Is there such a function?


Thanks
Mark