protection

[Cossie]

I have a series of sheet and graphs as sheet tabs in the same work book and i would like the macro code to protect and unprotect them all rather than just the worksheets. I use

For Each ws in Sheets
ws.protect Password:="password"
Next ws
End sub

Thanks

 

[Qroozn]

this is code from NateO

Sub alShts2()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect "password" 'change 'protect' to 'unprotect' to unprotect each sheet
Next ws
End Sub

 

[Cossie]

thanks a million for the advice

 

[Cossie]

that works for the worksheets but stops at the charts tabs.

Is there soemthing missing?

 

[NateO]

Qroozn, I appreciate the reference, seems like a long time ago that you and I were talking about flashing cells on the old board....

To the matter at hand. Try:

Sub alShts3() 
Dim ws As Worksheet 
For Each ws In ThisWorkbook.Worksheets 
ws.Protect "password" 'change 'protect' to 'unprotect' to unprotect each sheet 
Next ws
For Each ws In ThisWorkbook.Charts
ws.Protect "password" 'change 'protect' to 'unprotect' to unprotect each sheet 
Next ws
End Sub

Chart sheets and normal worksheets carry different properties, making them finicky. Have a good one y'all.


_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>

This message was edited by NateO on 2002-05-08 21:43

 

[Cossie]

That creates a run time error 13

type mismatch

 

[NateO]

Bad variable. Try:

Sub Pro()
Dim ws As Worksheet, ch As Chart
For Each ws In ThisWorkbook.Worksheets
ws.Protect "ps"
Next ws
For Each ch In ThisWorkbook.Charts
ch.Protect "ps"
Next ch
End Sub

Sorry 'bout the goof.

 

[Cossie]

excellent result thanks for the assistance u r a legend

 

[NateO]

You're welcome. Have a good one!