How can i word a code to protect ALL sheets in a workbook in a single step,
rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....