Protecting Sheets

[Patrick Simonds]

I have a workbook which has about 120 worksheets. Is there any way to set
the Worksheet Protection on all sheets at one time? I want all sheets set to
allow only the selection of unlocked cells.

 

[Sune Fibaek]

Patrick,

Try this:

Public Sub ProtectSheet()
For Each sht In Sheets
sht.Protect
Next sht
End Sub