在EXCEL中，需要一个在某一个日期就自杀的工作溥VBA代码

Posted 2023-03-09

看了EXCEL的一些书之后,想设一个到某一天,这个工作薄就自动消失的代码,另能设一个工作薄一打开,密码一旦输错,这个工作薄就自动删除的代码,那位高手给设一下,谢谢!

Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 50 '限制使用50次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub

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

源代码供参考。时间函数 now()，指定日期 #2011-12-31# ，希望你自己能改好程序。
后面的这个应该无法实现，因为输入密码时还未执行到宏代码啊。追问

先谢谢了，我把这个代码复制之后试一下，谢谢！祝生活愉快，万事如意！

参考资料：ynzsvt

参考技术A 你还真是个高手！这样自动消失、自动删除的功能也能想得出来？这是不可能的。
不过让其到时或一旦密码输错就无法使用的功能倒是可以的，我经常这么做！哈哈！版权保护嘛！追问

有的，我是从EXCEL HOME里看到的，只是自已不会设而已。

追答

自己删除自己是不可能的。就像不可能有永动机一样不可能。