如何给word宏加密？

Question

是在word里面设置的
打开word文档－》工具－》选项－》安全性可以动态修改吗
没有尝试过
应该用vba可以

Answer 1

可以设置密码：
打开VB编辑器，工具=》project属性=》保护，选查看时锁定工程，并输入密码。
动态修改不知道，但通过本身的编辑器似乎不可能，从外部修改也许可行吧，没试过。

Answer 2

Dim oWordApp As New Word.Application
Dim oDocuments As Word.Documents
Dim oDocument As Word.DocumentPrivate Sub Command1_Click()
oWordApp.Visible = True
oWordApp.Activate
oDocument.Password = "456"
End SubPrivate Sub Command2_Click()
oWordApp.Quit True
End Sub
Private Sub Form_Load()
Set oDocuments = oWordApp.Documents
Set oDocument = oDocuments.Open("c:\secret.doc", , False, , "123")End Sub
这个是我刚做的测试，已经通过，可以用vb来修改 word打开密码

Answer 3

多谢各位，我知道该怎么办了。以前用过DELPHI，这次又转来用VB，只得皮毛不明就里，还得努力！！！！