如何防止Excel自杀不成功？

KingRoc1

我现在有一个excel到一定的时间表格自己彻底的删除代码，如果我放到表格里面运行以后保存为“Excel启用宏的工作簿”，再把表格发给他人，有人说对方只要到期前禁用宏，就算到时候表格也不会自杀了。有谁知道如何破？数据要放到百度云盘，他人再从云盘下载下来使用。毕竟为公司辛辛苦苦干活，现在顶头小Boss要提拔亲信，把我们都弄走还要我们把数据留给他亲信，想想没日没夜写Excel公式才治理好数据，现在终于有点成果就要摘桃子，让对方舒舒服服把自己赶走，说心里一点都不介意那是不可能的，数据带不走，也不会想把整理好的留给对方。

1. <blockquote>Private Sub Workbook_Open()

复制代码

KingRoc1

Private Sub Workbook_Open() If Date >= #1/23/2015# And TimeValue(Now()) >= CDate("12:06:08") Then With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close End With End If End Sub

KingRoc1

1. Private Sub Workbook_Open()
   
2. If Date >= #1/23/2015# And TimeValue(Now()) >= CDate("12:06:08") Then
   
3. With ThisWorkbook
   
4. .Saved = True
   
5. .ChangeFileAccess xlReadOnly
   
6. Kill .FullName
   
7. .Close
   
8. End With
   
9. End If
   
10. End Sub

复制代码

zpy2

Private Sub Workbook_Open()
If Date >= #1/23/2015# And TimeValue(Now()) >= CDate("12:06:08") Then
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
else

rem取消隐藏工作表的VBA语言如下



Worksheets("Sheet1").Visible = true '隐藏时=False




End If
End Sub
在保存 workbook_save里 隐藏

zpy2

另外，VBA很容易被破解的

KingRoc1

zpy2 发表于 2019-3-9 06:37
另外，VBA很容易被破解的

就因为我怕到时候对方禁止宏，所以我才想如果对方停止了宏数据就没法看到甚至使用。领导如果真要做出卸磨杀驴的事也不要怪我。还有就是我这个代码中的时间会因为修改电脑系统时间无法实现吗？

zpy2

KingRoc1 发表于 2019-3-9 12:16
就因为我怕到时候对方禁止宏，所以我才想如果对方停止了宏数据就没法看到甚至使用。领导如果真要做出卸磨 ...

会的，可以用xmlhttp获取网页远程服务器时间来代替本机时间。

zpy2

不过这样子搞下去，会被360杀的，呵呵

zpy2

代码的意义在于后续维护，能用的最好还是用。你的想法和我以前一样。。。

KingRoc1

zpy2 发表于 2019-3-9 17:04
代码的意义在于后续维护，能用的最好还是用。你的想法和我以前一样。。。

保存的时候另存为“Excel启用宏的工作簿”，是不是规避对方禁用宏，只要打开一定要启用宏啊？