[已解决]再求助：删除文件夹内所有 ...

水木

再求助：删除文件夹内所有工作簿中所有工作表中的宏代码、窗体及公式。.rar (42.05 KB, 下载次数: 4)

2016-11-2 15:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-2 15:54

http://www.excelpx.com/thread-425264-1-1.html

这样不行吗

跳转到最佳答案楼层

爱疯

http://www.excelpx.com/thread-425264-1-1.html

这样不行吗

hhzjxss

自杀的代码六：所有模块自杀代码

1. 
   
2. excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
   
3. Sub 删除所有模块的代码()
   
4. Dim X
   
5. With Application.VBE.ActiveVBProject
   
6. i = 1
   
7. Do Until i > .VBComponents.Count
   
8.     X = .VBComponents.Item(i).Type
   
9.     Y = .VBComponents.Item(i).Name
   
10.     If .VBComponents.Item(i).Type <> vbext_ct_Document Then
    
11.     .VBComponents.Remove .VBComponents(Y)
    
12.     End If
    
13.     i = i + 1
    
14. Loop
    
15. End With
    
16. End Sub

复制代码

水木

爱疯 发表于 2016-11-2 15:54
http://www.excelpx.com/thread-425264-1-1.html

这样不行吗

老师：您好！这个附件中有内容的变动，请您重新设计一个。并给个附件。

水木

hhzjxss 发表于 2016-11-2 15:57
自杀的代码六：所有模块自杀代码

我在网上搜了，没有找到可在这个附件中可用的。

爱疯

我用2楼方法，试删了1楼附件的，没发现什么。

如果不行，你就说明下，什么地方有问题。

水木

爱疯 发表于 2016-11-2 16:21
我用2楼方法，试删了1楼附件的，没发现什么。

如果不行，你就说明下，什么地方有问题。

'删除代码
    For Each comp In wb.VBProject.VBComponents  运行代码后，这行代码为黄色。

水木

水木 发表于 2016-11-2 16:32
'删除代码
    For Each comp In wb.VBProject.VBComponents  运行代码后，这行代码为黄色。

删除1102.rar (589.9 KB, 下载次数: 1)

2016-11-2 16:35 上传

点击文件名下载附件 我重新上传附件，请您看一下。

爱疯

又试了1次，没发现你说的情况。

和你操作的，有地方不同么？

水木

爱疯 发表于 2016-11-2 16:36
又试了1次，没发现你说的情况。

和你操作的，有地方不同么？

我还是运行不了，会不会是版本的问题。我是10版的