Chip,

That worked a treat, but I forgot ti include that I want to use a password.

Can this be done?

"Chip Pearson" wrote:

You would need to use a VBA procedu


Sub ProtectAll()
Dim SH As Object
For Each SH In ThisWorkbook.Sheets
SH.Protect
Next SH
End Sub

Sub UnProtectAll()
Dim SH As Object
For Each SH In ThisWorkbook.Sheets
SH.Unprotect
Next SH
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"TheRook" wrote in message
...
I currently have 8 sheets within a workbook which are protected,
on each
sheet I have some locked and unlocked cells. Each worksheet is
for each day
of the week plus a totals sheet, therefore the layout for each
sheet is
identical. At present If I need to make an amendment to any of
the locked
cells I have to unprotect every sheet make the change and then
proect every
sheet.

Is there anyway of proecting ALL the sheets at once and
unprotecting them
all at once as this would reduce the time it takes.

Regards
The Rook