Paul, thanks for your help, now I have my macros for protect & Unprotect,
but anybody can go and run unprotect macro. I used PRIVATE, but then I can't
even see them myself to run them when I need to, is there anyway to put
password for use of macro?

"Paul B" wrote:

You could use a macro like this, will protect and unprotect all sheets in
the workbook

Sub protect_sheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Protect password:="123"

Next ws

End Sub



Sub unprotect_sheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Unprotect password:="123"

Next ws

End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"Protect & Unprotect Several Worksheets" <Protect & Unprotect Several
Worksheets @discussions.microsoft.com wrote in message
...
Situation: I have a workbook with over 30 worksheets, the worksheets have
data entry areas which are unblocked (our data entry person puts the data
in
those areas) and also formula areas which are blocked, I protect each
worksheet individualy to save the formulas from being altered accidently
by
data entry person.
Every month I need to unprotect all 30 worksheets and adjust the formulas
for the new month and then protect all 30 worksheets again to make them
ready
for data entry person again.

Question:Is there any way to protect all 30 worksheets in one step
instead
of 30
times, and unprotect them all 30 in one step instead of 30 times?

IREAD ONLY does not solve the problem, because it does not allow the data
entry person to work on the same file.