VBA实现Excel打开指定次数后自杀

VBA实现Excel打开指定次数后自杀

上次我写了个VBA实现Excel指定时间才能打开~那能不能指定EXCEL表格打开指定的次数以后自杀呢?

什么叫自杀

很简单嘛,就是自己杀死自己!对于Excel来说,就是删除自己了!

如何实现?代码咯!可以参考如下代码:

  1. Private Sub Workbook_Open()   
  2. Dim n As Integer   
  3. Range("A65536").Value = Range("A65536").Value + 1   
  4. n = Range("A65536").Value   
  5. MsgBox "文件只能使用3次,您已用了" & n & "次!"  
  6. If n < 3 Then   
  7. ActiveWorkbook.Save   
  8. Else   
  9. With ThisWorkbook   
  10.         .Saved = True   
  11.         .ChangeFileAccess xlReadOnly   
  12.         Kill .FullName   
  13.         .Close False   
  14.     End With   
  15.   
  16. End If   
  17. End Sub   

以上代码就是指定Excel表格打开3次后自杀,当然次数可以自定义!

当然发出这个只是为了技术上的分享,大家没事不要拿自己宝贵的数据做测试,后果无法估量!谨慎使用!

备注:若要测试请勿拿真实数据测试,请记得备份!

分享到: