求一段在指定时间自杀的宏代码？？？

billy5386 · 发表于 2011-3-20 17:05

我想让一个工作薄在一个指定的时间比如说是五一节下午3点自动自杀，求宏代码？？？
谢谢

987654321 · 发表于 2011-3-20 17:44

Private Sub Workbook_Open()
chk = GetSetting("hhh", "budget", "date", "")
If chk = "" Then
termdate = "2011－05－01"
MsgBox "本工作簿只能使用到" & termdate & vbCrLf & "超过期限将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "date", termdate
Else
If CDate(chk) <= Now Then
DeleteSetting "hhh", "budget", "date"
killme
Else
MsgBox "本工作簿只能使用到" & CDate(chk) & vbCrLf & "超过期限将自动销毁!", vbExclamation
End If
End If

End Sub

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

楼主测试看看行不行

tmzxgxw · 发表于 2011-3-28 11:26

学习了，谢谢！

mayi978 · 发表于 2011-3-28 11:16

学习了

yj275279755 · 发表于 2014-11-21 23:56

好贴留名！！！！

乐胜 · 发表于 2021-4-6 20:17

学习学习

		自动登录	找回密码
密码			免费注册

[求助] 求一段在指定时间自杀的宏代码？？？

评分