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

milk113 · 发表于 2024-8-14 15:53

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

我做的仓库里的各种表格，为了方便使用了宏的功能，保存类型为*.xlsm*，面临离职，不想销毁他的数据，只需要把宏代码删除掉，这样的话，数据还保留。所以需要一个到某个时间，遍历所有工作表，把代码和模块全部删除，感谢大佬帮组。

milk113 · 发表于 2024-8-14 15:56

自己顶一下，谢谢

milk113 · 发表于 2024-8-14 17:22

请各位老师帮助

milk113 · 发表于 2024-8-14 17:24

Private Sub Workbook_Open()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Set VBProj = ThisWorkbook.VBProject
For Each VBComp In VBProj.VBComponents
VBProj.VBComponents.Remove VBComp
Next VBComp
End Sub
这段代码为何无法运行，我是找AI编辑的

Qs18 · 发表于 2024-8-14 17:41

到期另存为不带宏的文件，把带宏的文件kill了就可以了

milk113 · 发表于 2024-8-14 17:51

本帖最后由 milk113 于 2024-8-15 08:08 编辑

天道酬勤y · 发表于 2024-8-14 17:52

Qs18 发表于 2024-8-14 17:41
到期另存为不带宏的文件，把带宏的文件kill了就可以了

文件太多了也不好办

milk113 · 发表于 2024-8-14 17:52

Qs18 发表于 2024-8-14 17:41
到期另存为不带宏的文件，把带宏的文件kill了就可以了

到指定的日期，就已经离职了，就没法操作了，只能期望程序按设定的时间自动删除脚本了

Qs18 · 发表于 2024-8-14 17:58

milk113 发表于 2024-8-14 17:52
到指定的日期，就已经离职了，就没法操作了，只能期望程序按设定的时间自动删除脚本了

把许多文件写在数组里，挨个执行就可以了，或者离职前就把自己的劳动成果写的代码，删了就可以了，需不着这么麻烦

smuuwl · 发表于 2024-8-14 18:04

http://www.360doc.com/content/20/0609/12/32829157_917368101.shtml

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

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