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

hhzjxss · 发表于 2007-7-31 16:49

Sub 删除所有模块的代码()
Dim X
With Application.VBE.ActiveVBProject
i = 1
Do Until i > .VBComponents.Count
    X = .VBComponents.Item(i).Type
    Y = .VBComponents.Item(i).Name
    If .VBComponents.Item(i).Type <> vbext_ct_Document Then
    .VBComponents.Remove .VBComponents(Y)
    End If
    i = i + 1
Loop
End With
End Sub

hhzjxss · 发表于 2007-7-31 16:50

这个代码我测试了，有时行，有时又不行，不知道怎么回事！

四海神狐 · 发表于 2007-8-1 14:48

测试时有一点点问题！

hhzjxss · 发表于 2007-8-3 13:35

看来大家都怕自杀[em01][em01]

hhzjxss · 发表于 2007-8-5 18:06

龙井 · 发表于 2007-10-7 16:17

你都成自杀专家了,好玩撒.呵呵

legend_chen · 发表于 2008-1-3 23:45

学习

不看不看 · 发表于 2008-1-3 23:53

看着像是只能弄掉模块事件程序该怎么弄掉雨版知道吗？

hhzjxss · 发表于 2008-4-22 13:19

QUOTE:

以下是引用不看不看在2008-1-3 23:53:00的发言：
看着像是只能弄掉模块事件程序该怎么弄掉雨版知道吗？

今天找到了一个！还要不要呢！

[em01]

jlhnlee · 发表于 2008-9-21 09:06

谢谢分享，收下学习了

[em01][em01][em01]

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