Ищите слово PASSWORD.

я со всем разобрался кроме------>
SetPassword Method


Assigns a password to the parent object (Shape2D) of the Protection property. Passwords must consist of at least eight characters. You cannot assign an ActiveShape a password unless it has a UniversalID assigned to it. An ActiveShape with a UniversalID property set to NULL cannot have a password.

Assigning a password to an ActiveShape protects the ActiveShape from being modified. It also protects the ActiveShape's protected expressions from being viewed or modified. Once an ActiveShape has a password, you cannot view it in the ActiveShape Editor or explode it. In addition, you cannot change the property protection for any of the ActiveShape properties. In other words, you cannot change the True or False value of the Expressions object Protection property.

Use ClearPassword, to clear the password from the ActiveShape.

Syntax
SetPassword(Password As String)

куда именно прописывать SetPassword(Password As String)???

Метод SetPassword
Назначает пароль на родительский объект (Shape2D) собственности Защиты. Пароли должны состоять по крайней мере из восьми характеров. Вы не можете назначить ActiveShape пароль, если этому не назначили UniversalID на это. ActiveShape с набором собственности UniversalID к ПУСТОМУ не может иметь пароля.

Назначение пароля к ActiveShape защищает ActiveShape от того, чтобы быть измененным...

Вопрос НЕ будет удалён 18/06-2006, если присутствующие объяснят мне, что это имеет отношение к electrik.org