求助！excel到期自动销毁宏脚本

gyf519

     Sub 删除B模块()
if date>#2024-08-01# then
       With ThisWorkbook.VBProject.VBComponents
         .Remove ThisWorkbook.VBProject.VBComponents("B")
       End With
end if
     End Sub

蓝色幻想教程67回，代码操作代码

cai2532

厉害呀，学习了。

醉眼看尘世

写一个xla文件【该xla文件有你所想要的功能】，把它放在Excel启动文件夹中。只要有人用表格，到指定时间，它就把你的xlsm打开，另存为xlsx文档【然后删除xlsm文件】，这是借用上面5楼的想法。

milk113

醉眼看尘世 发表于 2024-8-14 22:39
写一个xla文件【该xla文件有你所想要的功能】，把它放在Excel启动文件夹中。只要有人用表格，到指定时间， ...

我们这边是服务器每天自动备份，我的原文件如果打开的过程中，发生大的变化，操作人员肯定去找服务器备份出来用，我的想法是，到了指定日期，宏不知不觉的就自动删除了，而数据还保留，那这样的话，操作人员只能把数据拷贝出来用，而不会想着去找备份修复宏BUG，毕竟破解宏密码太简单了，我主要是瞒天过海，既不想让他们损坏数据，又不想继续用我的劳动成果

约定的童话

心态决定人的眼光，真没必要这样做，如果你当初开发了工具老板给你奖励了，更没必要这样做了

wengjl

gyf519 发表于 2024-8-14 19:18
Sub 删除B模块()
if date>#2024-08-01# then
       With ThisWorkbook.VBProject.VBComponents

我试了，到 第3行
with thisworkbook.vbproject.vbcomponents
这一句就出错了