因为工作需要,临时研究了一天,把网上提供的方法全部搜索并验证了一遍,发现网友们有些还是不太负责任的,特此记录我的结论,以便需要的同学少走弯路。
打开文件---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。有一点没有解决,如果在其他电脑上没有开启宏这个功能,文档有效期还是无法生效的,期待高手给与指点