Protecting Sheets

  • Thread starter Patrick Simonds
  • Start date
P

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.
 
S

Sune Fibaek

Patrick,

Try this:

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