[已解决]大师们，如果时间到了2017年5月5日，触发工作表便无法运行应当，应怎么实现，求教！

TZJ133 · 发表于 2017-4-15 13:29

问题： 1、如果时间到了2017年5月5日，时间事件便会触发工作表便无法运行应当，同时弹出密码框，输入正确密码后可进入VBA后对时间进行更改，直至到达这一更改时间后，又再次触发时间事件，工作不能运行，如此循环进行。应如何做，求教大师！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-15 14:59

新附件，不需要进VBA界面更改日期。

跳转到最佳答案楼层

TZJ133 · 发表于 2017-4-15 13:36

密码是：5376603

TZJ133 · 发表于 2017-4-15 13:36

不好意思！对不起！

大灰狼1976 · 发表于 2017-4-15 13:47

思路：
1、设置VBA工程密码；
2、workbook.open事件中加入对日期的判断，大于（或大于等于）设定日期时，所有工作表深度隐藏，
并msgbox提示用户需要修改设定时间，工作簿不关闭；
3、修改设定日期后保存关闭再打开就恢复工作表显示。

建议：最好不要其他用户进入VBA修改日期设定，而是把此日期保存在某个深度隐藏的工作表内，
而这个工作表可以通过密码恢复显示，这样比较安全。

大灰狼1976 · 发表于 2017-4-15 14:10

附件是简单的示例，目前设定是超过明天的日期时会提示，并且隐藏除main以外的工作表。
你可以自己改成今天的日期试试。工程密码为1

TZJ133 · 发表于 2017-4-15 14:33

谢谢大师指点

大灰狼1976 · 发表于 2017-4-15 14:59

这个最佳答案由大灰狼1976 给出，感谢大灰狼1976 的回答。

单击隐藏图章

新附件，不需要进VBA界面更改日期。

TZJ133 · 发表于 2017-4-15 16:18

谢谢指定

TZJ133 · 发表于 2017-4-15 16:19

谢谢大师指点！

		自动登录	找回密码
密码			注册

[已解决]大师们，如果时间到了2017年5月5日，触发工作表便无法运行应当，应怎么实现，求教！

相关帖子