I have a work book with over 120 worksheets. Is there any way to set the
worksheet protection on all worksheets so that a user can only select
unlocked cells. I know I can do this by selecting each worksheet, one at a
time, and deselecting all options but "select unlocked cells", but that
will be very time consuming.

Patrick

A macro will do what you want.

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

To unprotect all sheets just change .Protect to . UnProtect


Gord Dibben MS Excel MVP

On Thu, 9 Nov 2006 09:42:03 -0800, "Patrick Simonds" <(E-Mail Removed)>
wrote:

>I have a work book with over 120 worksheets. Is there any way to set the
>worksheet protection on all worksheets so that a user can only select
>unlocked cells. I know I can do this by selecting each worksheet, one at a
>time, and deselecting all options but "select unlocked cells", but that
>will be very time consuming.
>