Office中国论坛/Access中国论坛

标题: 打开WORD文件后还要判断有否密码 [打印本页]

作者: xzbyw 时间: 2008-12-23 14:45
标题: 打开WORD文件后还要判断有否密码
想编一WORD宏实现：如果打开的文件还没有密码则提示是否自动加密码，见以下宏：
Sub AutoClose()
With ActiveDocument
      If .Password = "" Then  '还没有密码
         If MsgBox("是否自动加密？", vbYesNo) = vbYes Then
            .Password = "123"
         End If
      End If
End With
End Sub
但得到提示：属性的使用无效。
请问如何更改，谢谢！

[ 本帖最后由 xzbyw 于 2008-12-23 14:46 编辑 ]

作者: pureshadow 时间: 2008-12-23 19:31
改成事件试试
Private Sub Document_Open()

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)