Protect/Unprotect Charts

[christianbiker]

Hi,

I am currently using the following code to protect/unprotect each sheet in a workbook:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Unprotect "PASSWORD"
End With
Next ws

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Protect "PASSWORD"
End With
Next ws

I figured that I could also use it for charts that I have set up as separate tabs however it does not seem to be working. Is there any way to set up code to protect every tab in an open workbook?

Any help would be appreciated...thanks!

 

[tmcfadden]

Well, this isn't an ideal solution however it works.
<hr>

For Each cht In ThisWorkbook.Charts
    cht.Unprotect
Next cht

-Tim

 

[christianbiker]

I need to be able to use a password as well. Can I do this with the code you have provided?

Thanks

 

[tmcfadden]

Sure can. It works the same as your example, only you have to use the 'Charts' object rather than the 'Worksheets' object.

-Tim

 

[christianbiker]

Absolutely perfect!!!!!

Thanks alot.