Как программно открыть VBProject

[esv]

Как программно(из VB6) открыть VBA-проект, находящийся в шаблоне WORD, если он защищен паролем, и пароль известен? Как делать это с незащищенным проектом, я знаю. Заранее благодарен.

[Vitaly1]

Сначало надо открыть документ методом Open.
Затем методом UnProtect снять защиту, указав в методе пароль.

[esv]

Сначало надо открыть документ методом Open.
Затем методом UnProtect снять защиту, указав в методе пароль.

Unprotect - метод Word.Document, а мне надо снять защиту с VBProject, а у него Unprotect нету (

[Vitaly1]

Я не знаю как в ворде, но в екселе этот метод к книги крепится и снимает защиту не только с книги, но и с VBA проекта. Поэтому попробуй снять защиту с документа Document.unprotect, наверно, с проекта тоже снимится.

[esv]

Dim WDoc As Word.Document
Set WDoc = WS.Documents.Open(Text1.Text)

WDoc.Unprotect ("jdcrj770-56701") - здесь ругается на то что документ уже Unprotected (Run-time error '4605')

Set VBP = WS.ActiveDocument.VBProject

Dim i As Integer
For i = 1 To VBP.VBComponents.Count - здесь ругается на невозможность выполнения этого действия с защищеннымм проектом
(Run-time error '50289')


... такая вот фигня ...

[Vitaly1]

Да, действительно, я ошибся, это защита на документ а не на проект.

[Vitaly1]

Там в методе Open есть несколько паролей, может быть один из них?

[esv]

по-моему нет