用VBA设定了文件自动销毁程序，但不能正常运行，麻烦帮看看，谢谢

快乐石头

一、VBA中设定的代码如下：

Private SubDocument_Open()

If Date >"2023/7/25" Then

MsgBox "已到使用期限，文件将自动销毁"

Selection.WholeStory

Selection.Delete

ActiveDocument.Save

ActiveWindow.Close

End If

End Sub

二、目的：文件打开后，系统日期在2023/7/25后，文件将自动销毁。

三、测试：

1、运行上面的代码，文件不能销毁。

2、把“2023/7/25”改成“2022/7/25”，文件能销毁。

3、把“>”改成“<”，文件也能销毁。

四、求助

   不知道哪里出问题了，就想实现设定好未来的时间打开文档，文档自动销毁。

batmanbbs

另外，建议将msgbox放在后面，如果放在前面这时可以中断程序，让你无法执行销毁，有安全隐患。

快乐石头

batmanbbs 发表于 2023-7-27 15:56
另外，建议将msgbox放在后面，如果放在前面这时可以中断程序，让你无法执行销毁，有安全隐患。

我还是新手，麻烦说的明白些。所谓的后面是指那个位置？谢谢

快乐石头

batmanbbs 发表于 2023-7-27 15:56
另外，建议将msgbox放在后面，如果放在前面这时可以中断程序，让你无法执行销毁，有安全隐患。

按照你的提醒，重新调整了下，可以实现自动销毁了。谢谢

batmanbbs

快乐石头 发表于 2023-7-27 16:05
我还是新手，麻烦说的明白些。所谓的后面是指那个位置？谢谢

放在SAVE或者CLOSE之后的位置，提醒到期已销毁
PS：俺也是新手，彼此彼此

lhteee

Private Sub Document_Open()

If Now() >=DateSerial("2024","04","30") Then
MsgBox "已到使用期限，文件将自动销毁"
Selection.WholeStory
Selection.Delete
ActiveDocument.Save
ActiveWindow.Close
End If

End Sub