[已解决]请教高手

ww0000

请教一个判断工作表内容是否变化的代码，如果有变化，则一打开就删除文件

比如:

Private Sub Workbook_Open()
Dim Wb As Workbook
  Set Wb = ThisWorkbook
If ************ Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
  Kill ActiveWorkbook.FullName
  Application.Quit
End If
End Sub

这里面的*****应该写什么?

最佳答案

月排行榜 / 总排行榜

兰色幼想

2010-1-30 13:12

其实 简单一点的 可以在某个工作表 或者隐藏的工作表的一个单元格存一个数值 来判断是否修改

在selection change 事件里面 加上 单元格=1 否则 默认就是0  下次打开判断单元格是否为1 是1就删除

当然这中方法也是可以被发现的 因为vba代码也很容易被破解 所以对不懂vba的人来说足够了

跳转到最佳答案楼层

回形针

这个实现不了吧

兰色幼想

其实 简单一点的 可以在某个工作表 或者隐藏的工作表的一个单元格存一个数值 来判断是否修改

在selection change 事件里面 加上 单元格=1 否则 默认就是0  下次打开判断单元格是否为1 是1就删除

当然这中方法也是可以被发现的 因为vba代码也很容易被破解 所以对不懂vba的人来说足够了

hyetal

又是VBA啊，完全不懂啊

nbjl01

VBA 我也不懂，以后多学习！

ww0000

兰色幻想老师，3楼说的还是不懂，能做一个吗？