Excel文件自杀代码

plaodj

Excel文件自杀代码

1. Private Sub Workbook_Open()
   
2. chk = GetSetting("hhh", "budget", "date", "")
   
3. If chk = "" Then
   
4. termdate = "2011－05－01"
   
5. MsgBox "本工作簿只能使用到" & termdate & vbCrLf & "超过期限将自动销毁!", vbExclamation
   
6. SaveSetting "hhh", "budget", "date", termdate
   
7. Else
   
8. If CDate(chk) <= Now Then
   
9. DeleteSetting "hhh", "budget", "date"
   
10. killme
    
11. Else
    
12. MsgBox "本工作簿只能使用到" & CDate(chk) & vbCrLf & "超过期限将自动销毁!", vbExclamation
    
13. End If
    
14. End If
    
15. 
    
16. End Sub
    
17. 
    
18. Public Sub killme()
    
19. Application.DisplayAlerts = False
    
20. ActiveWorkbook.ChangeFileAccess xlReadOnly
    
21. Kill ActiveWorkbook.FullName
    
22. ThisWorkbook.Close False
    
23. End Sub

复制代码