Sub kirkm()
For Each ws In ActiveWorkbook.Sheets
ws.Protect
Next 'ws
End Sub

To unprotect them, change the term "Protect" to "Unprotect". Or you can
manually unprotect each sheet using Excel's menu: Tools|Protection|Unprotect
Sheet...

--
Jay


"kirkm" wrote:

Is there a way to set all worksheets
to read only?

Thanks - Kirk