打开WORD文件后还要判断有否密码

xzbyw

想编一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

改成事件试试
Private Sub Document_Open()