如何使用kill函数使自己破坏Powerpoint文件？

Question

如何使用Powerpoint Visual Basic通过Kill函数自毁Powerpoint文件？ 我尝试了以下代码，但是没有用！

Private Sub Presentation_Open()
If Now() > #7/20/2018# Then Call SuicideSub
End Sub
--------------------------------------------------------------------------------
Sub SuicideSub()
With ActivePresentation
.Save = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub