第2个回答 2020-06-20
可以通过vba代码实现吧(举例)
Private Sub Workbook_Open()
Dim time1, time2
time1 = Date
time2 = #5/10/2020# '到期时间可以自行更改
If time2 <= time1 Then
Call KillThisWorkbook
End If
End Sub
sub KillThisWorkbook()
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
kill .FullName
.Close
End With
Application.DisplayAlerts = True
End Su