for each sh in Activeworkbook.worksheets
sh.activate
sh.Cells.Locked = True
sh.Cells.FormulaHidden = True
sh.Protect Password:="ABCD"
Next

--
Regards,
Tom Ogilvy

"mik00725" wrote in
message ...

Hi all!

I have multiples spreadsheets with different amount of sheets with
different names each sheet. What I want to do is to run a Macros to
protect all sheets, and hiding the formulas, that works for every
different workbook and sheet. Any help will be greatly appreciated.


--
mik00725
------------------------------------------------------------------------
mik00725's Profile:
http://www.excelforum.com/member.php...o&userid=16169
View this thread: http://www.excelforum.com/showthread...hreadid=481996