That is exactly what I use on a 63 sheet workbook. I have assigned keyboard
shortcuts (Ctrl+u, Ctrl+p) to the macros for ease of use. This book has been
distributed across my company for 3 years with no problems.
Mike F
"Pete" wrote in message
oups.com...
I have a Workbook that contains 6 seperate Sheets. On the PC using this
workbook, there can be 3 other workbooks open at the same time. To cut
corners, I use the Sub below to remove protection from all Sheets in
the Workbook that contains the 6 seperate sheets, and the following Sub
to turn it back on, can you tell me if this is the correct method, or
is there a better way. For some reason, I keep getting problems when
trying to enter data i unprotected Cells, and was wondering if I am
doing this wrong.

Thanks

Pete


Private Sub ProtectionOff()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("PassWord")
Next ws
End Sub


Private Sub ProtectionOn()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="PassWord"
Next ws
End Sub