View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
mohavv mohavv is offline
external usenet poster
 
Posts: 68
Default Protect sheets in one go

On Mar 12, 10:54*am, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
This will do them all...

Sub ProtectAll()
dim wks as worksheet

for each wks in worksheets
*wks.protect Password:="Tada"
next wks
end sub
--
HTH...

Jim Thomlinson



"mohavv" wrote:
Hi,


Is there a way to protect all the sheets in a workbook in one go?
I've got 17-19 sheets (it varies).


I could create a macro, but how to handle the different number of
sheets?


Cheers,


Harold- Hide quoted text -


- Show quoted text -


Tx! works fine!