MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Is there any way...


Posted by Joe on December 21, 2001 1:14 PM

...to protect several worksheets at once?

I have like 50 different worksheets in a workbook that I want to protect, but if I select all worksheets it doesn't give me the option of protecting them.

Tell me there is some way other than going through all 50 individually?????

Thanks.

Joe


Posted by Ivan F Moala on December 21, 2001 1:18 PM

Not without a VBA Looping code sorry


Ivan

Posted by Jack in UK on December 21, 2001 1:21 PM

Joe that a mission that one all will need to be coded out in VBA and complex, you need to build to this level bit by bit, that way your be abke to maintain and tweak the script.

Posted by Joe on December 21, 2001 2:40 PM

Ivan and Jack

Thats what I was afraid of, but thanks for confirming it.

Perhaps I will attempt a macro that will select all worksheets in a workbook and protect them with the same password.

Since I have about 34 workbooks each with 50 worksheets it would be worth it to create some macro....

THIS BOARD IS GREAT!!! I'll be back with further questions....also please feel free to post suggestions.

Joe

Posted by rm on December 21, 2001 5:15 PM

Joe,
I feel your pain...but persistence on my part helped me to find this really great add-in (well, I think it's pretty awesome anyway) called asap utilities...do your eyes and wrists a big favor and download it from the address below:

http://www.asap-utilities.com/

if you don't know how to install an add-in to excel manually, there is an option for the install to do it for you. Not only will the unprotect and protect for all sheets command be available, but a host of other handy stuff too. The best thing about the program is the price...free, for now at least. So download it quick before it goes commercial(?)

hope that helped...rm

Posted by Joe on December 22, 2001 1:50 AM

VERY Handy!

rm,

Thanks a million! You are right this add in will save me alot of time!

Thanks again,

Joe

Posted by Jacob on December 22, 2001 5:03 PM

This is how

Sub ProtectEmAll

for x = 1 to sheets.count
sheets(x).protect("Password")
next x

end sub