Change "Protect Document - Shapes" Programatically ?

[mikeFin]

Hello!

Is it possible to change programmatically (with VBA) the state of:

View -> Drawing Explorer -> "Right-Mouse-Click on Visio-File" -> Protect
Document -> Shapes

?

If yes, how can this be done?

 

[Andy]

Hi

You need to do the following,

ThisDocument.Protection = visProtectShapes

 

[mikeFin]

Thanks this is working.

But I have one more question:
How do I set it back.
I mean "ThisDocument.Protection = visProtectShapes" does protect the shapes
on the document, but how do I unprotect them (programatically) ?

Thanks

 

[Paul Herber]

Thanks this is working.

But I have one more question:
How do I set it back.
I mean "ThisDocument.Protection = visProtectShapes" does protect the shapes
on the document, but how do I unprotect them (programatically) ?

http://msdn.microsoft.com/en-us/library/bb436032(office.11).aspx

follow the document link, then visProtection link