protect all sheets at once

[Smithgall]

I have an application that uses a different tab for each employee. I continue to tweak the spreadsheet and must protect and unprotect each sheet to do maintenance. I inevitably forget to protect all the employees and fear that at some point someone will accidently stumble onto cells that are not to be touched and screw up some formulas.

QUESTION- is there a way to automatically protect all the sheets in a workbook. This is probably a macro rather than a built in code but if someone else has done it i would appreciate know how.

ps. Protecting the workbook is not the same

 

[Smitty]

Sure:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> ProtectAll()
    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet
        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWorkbook.Worksheets
            ws.Protect "PasswordHere"
        <SPAN style="color:#00007F">Next</SPAN> ws
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty

EDIT: To unprotect, just set ws.Protect to ws.Unprotect in a new sub.

 

[Brian from Maui]

Another option is ASAP Utilities,

www.asap-utilities.com

Hey Smitty....

 

[Smithgall]

thanks smitty. worked beuatifully.

thanks again