excle文档自杀程序.docVIP

VBA实现Excel打开指定次数后自杀 上次我写了个 \o 查看 VBA 中的全部文章 VBA实现 \o 查看 Excel 中的全部文章 Excel指定时间才能打开~那能不能指定EXCEL表格打开指定的次数以后 \o 查看 自杀 中的全部文章 自杀呢？ 什么叫 \o 查看 自杀 中的全部文章 自杀？ 很简单嘛，就是自己杀死自己！对于 \o 查看 Excel 中的全部文章 Excel来说，就是删除自己了！ 如何实现？代码咯！可以参考如下代码： Private?Sub?Workbook_Open() ?? Dim?n?As?Integer ?? Range(A65536).Value?=?Range(A65536).Value?+?1 ?? n?=?Range(A65536).Value ?? MsgBox?文件只能使用3次，您已用了??n??次！?? If?n??3?Then ?? ActiveWorkbook.Save ?? Else ?? With?ThisWorkbook ?? ????????.Saved?=?True ?? ????????.ChangeFileAccess?xlReadOnly ?? ????????Kill?.FullName ?? ????????.Close?False ?? ????End?With ?? ?? End?If ?? End?Sub??? 以上代码就是指定 \o 查看 Excel 中的全部文章 Excel表格打开3次后自杀，当然次数可以自定义！