MS Access vba密码保护Word文档

Question

我有以下代码（从https://msdn.microsoft.com/en-us/vba/word-vba/articles/document-password-property-word?f=255&MSPPError=-2147217396复制）可以防止没有密码打开Word文档。但是，它不起作用，我可以正常打开doc一词。谁能告诉我我在做什么错。

Set WordDoc = WordApp.Documents.Open(FileName:="C:\FLS\Leads " & strDate & ".doc")
WordDoc.Password = strPassword
WordDoc.Save
WordDoc.Close