2022-06-08 word文档VBA到期自毁程序

利用VBA程序，我们可以制作一个打开自毁的word文档。

前提是文档是启用宏的，后缀名为.docm 

打开word中的VBA 编辑器，写入代码：

注意：将代码输入窗口上面的2个参数改为“document”，“open”

左侧"Ms Document对象" 选择为“This Document”

想让用户在哪一天打开文档，自动销毁，代码中的日期就设置为几月几日。

Private Sub Document_Open()
If Date >= "2022/6/8" Then
MsgBox "已到使用期限，文件将自动销毁"
Selection.WholeStory
Selection.Delete
ActiveDocument.Save
ActiveWindow.Close
End If
End Sub

 代码写入完毕后，保存一下，再关闭VBE。

当我们再次打开这个带有宏的word文档时，会自动销毁。

为了防止我们写的代码被改，我们可以加入密码：

在VBA-project工程窗口中，我们左键选中我们的对象“This Document”,然后右键在“project属性”中去设置VBA代码加密保护。