Thanks for the quick and useful response. I have already implemented your
technique and am saving time.



"Jim Thomlinson" wrote:

Try something like this...

Sub ProtectAll()
Dim wks as worksheet

On error Resume Next
for each wks in Worksheets
wks.Protect Password:="tada"
next wks
On error Goto 0
end sub

Sub UnprotectAll()
Dim wks as worksheet

On error Resume Next
for each wks in Worksheets
wks.Unprotect Password:="tada"
next wks
On error Goto 0
end sub
--
HTH...

Jim Thomlinson


"Sumknight" wrote:

In Excel 2003, I am trying to protect up to 20 worksheets in one workbook. I
then need to unprotect them to edit each sheet, then protect them again to
prevent editing. I spend half my life protecting and unprotecting! How may I
do this more effeciently?