Protect all Sheets
 

I would like a macro that will protect all sheets in a workbook. However, to
confuse things I would like them all to be protected with the protection
settings that currently apply to each sheet (eg. Allow cell formatting, etc).

Hopefully this is possible......