This can be done with only a VBA procedu

Sub ProtectAll()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Protect Password:="OptionalPassword"
Next WS
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)


"faeiz2" wrote in message
ups.com...
Good day to all

I have so many worksheet to protect. How do I protect them all together
with a single operation (no need to go to each worksheet and do the
protection).

Thank You for help