在vba到期后永久删除工作簿

Question

Sub CommintSuicide()
With ThisWorkbook
    Application.DisplayAlerts = False
    If .Path <> vbNullString Then
        .ChangeFileAccess xlReadOnly
        Kill .FullName
    End If
    ThisWorkbook.Close SaveChanges:=False
End With

End Sub

“我需要在此代码中设置到期日期，该代码应自动删除包含特定日期的vba代码的工作簿”