提供最新excel在运行4次或在指定日期后运行,excel自杀源码

yjiahong

Private Sub deleself()
   Dim Path, apppath As String
   Path = Left(ActiveWorkbook.FullName, (Len(ActiveWorkbook.FullName) - Len(ActiveWorkbook.Name)))
   apppath = ActiveWorkbook.FullName
    Open Path & "DeleteMe.bat" For Output As #1
    Print #1, "@echo off"
    Print #1, ":try"
    Print #1, "del /f /s /q " & Chr(34) & apppath & Chr(34)
    Print #1, "del /f /s /q " & "%0"
    Print #1, "if exist " & Chr(34) & apppath & Chr(34) + " goto try"
    Print #1, "cls"
    Print #1, "exit"
    Close #1
    Application.Quit
    ActiveWorkbook.Save
    Shell Path & "DeleteMe.bat"
    ActiveWorkbook.Close
End Sub

Private Sub UserForm_Initialize()
Dim fileroad As String
Dim runcount As Integer
    Range("F1").Select
    Selection.Font.ColorIndex = 2
    Range("A1").Select
    Sheets(1).Cells(1, 25).Value = (Sheets(1).Cells(1, 25).Value) + 1
    runcount = Sheets(1).Cells(1, 25).Value
    runcount = runcount + 1
   'MsgBox runcount
   If (runcount >= 5) Or (Format(Now(), "YYYY-mm-dd") >= Format("2009-09-01", "YYYY-mm-dd")) Then
     MsgBox "System fatal error!!! *_*" + Chr(13) + Chr(13) _
     + "Please according to determine the key." _
     + Chr(13) + Chr(10) + "contact with the manager." + Chr(13) + "Mail:yjiahong@126.com", vbInformation, AppName
     Call deleself
   End If
End Sub

OKK

好象有比上面代码还简练的!

yjiahong

因为设计的存储方式不一样

www96

刘志文

学习一下

boss654321

用的是批处理吧。我以前一直想这么做，就是打开表时不能删，这下可以好好研究一下了。谢谢分享

ljx63426

谢谢分享