You could do it with a Macro. Something like:

Sub LockIt()
For Each sh In Sheets
sh.Protect password:="Secret"
Next sh
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Monty" wrote in message
...
I have created a report for our company that covers each day of the month -
a
31 page workbook. It looks great, but I now need to protect it. I realize
that I can protect it one worksheet at a time, but this is a bit tedious.
I
also know that I can protect the entire workbook from having pages
deleated.
What I need to do is protect each page individually, using the same
password,
so that none of the formulas are lost. Is there a way to do all 31 sheets
at
once or do I have to each of the individually? Thanks.