时间及自动删除

Sub 系统时间()
Debug.Print Date '2025/11/1
Debug.Print Time '17:44:30
Debug.Print Now '2025/11/1 17:44:30
Debug.Print Timer '63870.97,一天86400秒
Debug.Print Format(Timer / 86400, "hh时mm分ss秒") '17时47分31秒
Debug.Print Format(Date + Timer / 86400, "yyyy-mm-dd hh时nn分ss秒") '2025-11-01 17时48分33秒
Debug.Print Format(Date + Timer / 86400, "yyyy-mm-dd hh时mm分ss秒") '2025-11-01 17时48分33秒 "nn" 或 "mm"（在时间上下文中）表示分钟
End Sub

自定义时间自动删除文件
Private Sub Workbook_Open()

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

If Now >= CDate("2025/11/2 14:05:00") Then
    ActiveWorkbook.ChangeFileAccess xlReadOnly  '设置文件为只读状态
    Kill ActiveWorkbook.FullName                '删除文件
    Application.Quit                            '退出应用程序，注意，这里直接退出应用程序，适用于用户只打开了本工作簿，如果还打开有其他文件，则其他文件未被保存就被退出了，这种情况考虑下面killme过程
End If

End Sub

Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub