vb+vba+word

[Ramzes]

Есть проблема... Надо стряпать програмку которая при запуске *.ехе будет устанавливать на выбраный документ ворд или excel пароль. Можно ли такое сделать и если да то как?

[Amed]

Ну, это делается так примерно:

Подключаем Word 10.0 Object Library (в Project|References) и пишем:

Код: Выделить всё

Option Explicit
Dim x As New Word.Application

Private Sub Form_Load()
x.Documents.Open ("C:\mydoc.doc")
x.Documents(1).Password = "mypass"

x.Visible = True
x.ActiveDocument.Save
End Sub

Теперь запускай программу и пробуй открыть этот файл...

[Ramzes]

А Excel?

[A.A.Z.]

Код: Выделить всё

Option Explicit
Dim x As New Excel.Application

Private Sub Form_Load()
x.Documents.Open ("C:\mydoc.xls")
x.Documents(1).Password = "mypass"

x.Visible = True
x.ActiveDocument.Save
End Sub