Gord,
Great, Tx a lot for the macro.
How do I make the adjustment in it to uncheck "Allow all users of the
worksheet to: Select Locked Cells"
(In other words, do NOT let users select locked cells.)
Tx a million.
S
Gord Dibben wrote:
S

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Unprotect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub


Gord Dibben Excel MVP

On Sat, 22 Jan 2005 14:50:47 -0500, "saturnin02"
<saturnin02_at_hotmail.com wrote:

Don Guillett wrote:
You will need a for/each looping macro

Win XP HE, SP1
Excel 2002 SP3

Hi, How can I protect the 25 worsheets contained in single workbook AT
ONCE? I dt want to have to do it manually for each sheet....
Tx,
S

Tx, Don.
Any chance u have one I can copy/paste?
S