如何设置word的有效期

因为工作需要，临时研究了一天，把网上提供的方法全部搜索并验证了一遍，发现网友们有些还是不太负责任的，特此记录我的结论，以便需要的同学少走弯路。

打开文件---Word选项，勾选开发工具。

点击VB，在当前文档的子目录，找到document_open()

贴上下面这段代码：

Public Sub Document_Open()
    If Date > "2018/6/13" Then
        Application.ActiveDocument.Close
    End If
End Sub

意思是：文档只能在2018年6月13日之前打开，此后文档将失效。

将文档另存为“启用宏的word文档”

点击开发工具中“宏”，选中当前文档名.Document_Opent，这个宏。然后“运行”，保存，最后文档图标变成带有感叹号的加密文档。

我使用的是07版word，同理可以加密excel。有一点没有解决，如果在其他电脑上没有开启宏这个功能，文档有效期还是无法生效的，期待高手给与指点