I found an answer:

For Each sht In ActiveWorkbook.Sheets

ActiveSheet.Protect Password:="password", DrawingObjects:=True,
Contents:=True, Scenarios:=True

Next

The same goes for unprotect.

Thanks,
Mike.



"Mike D." wrote:

Is there a way to protect all the sheets in a workbook without specifying
each sheet separately. Currently, I select each sheet and then do
ActiveSheet.Unprotect.

Thanks,
Mike.