给工作簿设置使用有效期

雷雷爸

各位老师好，我是VBA小白，请教各位老师如何给工作簿设置一个有效期，超过有效期打开后就自动关闭工作簿，有效期到期前三天，每天给个提醒，最近在帖子中找到一段代码，但是如果改动系统时间就没有作用了，请问这个可以实现吗？谢谢各位老师指点。
不好意思各位老师，我今天发的新帖审核一直没过，借这个帖子，请各位老师再帮我看个代码，谢谢！附件是后面两个！
我这边有段生成二维码的代码，会根据单元格内容自动生成二维码，但是生成二维码后，其他图片就不能保留了，比如电子签名，因为需要内容更新后，将之前生成的二维码图片删除自动生成新的二维码图片，如果想保留电子签名等图片，就要把代码里的If InStr(x.Name, "Picture") > 0 Or InStr(x.Name, "图片") > 0 Then x.Delete  改成>1或以上，这样的话二维码就会不断叠加，老师们有没有办法，既能添加其他图片又能保证二维码图片更新后将之前的二维码图片删除，谢谢各位老师

ykcbf1100

这样应该可以了。

liulang0808

vba保护很弱的，
很容易被破解，

雷雷爸

ykcbf1100 发表于 2023-6-17 21:29
这样应该可以了。

大佬还是不行，修改系统时间就不行了

雷雷爸

liulang0808 发表于 2023-6-17 21:33
vba保护很弱的，
很容易被破解，

是的大佬，我是小白，就是东拼西凑，有个差不多就行了，大佬有办法解决吗

lizhipei78

雷雷爸 发表于 2023-6-17 23:07
大佬还是不行，修改系统时间就不行了

这个没法解决，VBA获取的是系统时间，它又不能联网

雷雷爸

lizhipei78 发表于 2023-6-18 10:08
这个没法解决，VBA获取的是系统时间，它又不能联网

是的，老师，确实想了很多办法，无法解决

ykcbf1100

雷雷爸 发表于 2023-6-17 23:07
大佬还是不行，修改系统时间就不行了

你从哪里修改系统时间啊？
你的代码是取当天日期的，如果你要修改截止日期，你得修改那个数值。

雷雷爸

ykcbf1100 发表于 2023-6-18 13:02
你从哪里修改系统时间啊？
你的代码是取当天日期的，如果你要修改截止日期，你得修改那个数值。

是的老师，但是那个数字改了没有太大意义，Date 转换的是电脑系统时间，如果别人把系统时间改到之前，这个代码就失效了

高个子

那这样的话你还得网抓时间，依据网络时间来判断