Protecting multiple worksheets easily

[Joe H.]

Is there a way to protect worksheets without having to do
each one individually?

 

[Paul B]

Joe, you can with a macro,

Sub protect_sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect
Next ws
End Sub


Or with password

Sub protect_sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect 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 97 & 2000
** remove news from my email address to reply by email **

 

[Rob]

Joe,

Have a look at http://www.asap-utilities.com/ and you'll see that the ASAP
Utility, which is FOC has an option to do just what you require.

Rob