Excel 2003另存为新工作簿时，去除模块里的宏，其实只需这一句。

liucqa

shenghua8 发表于 2013-11-20 16:38
这个不能空喊口号，人云亦云。
既然你觉得你这水平能谈论Fluent界面，
又既然我感知很多用户还是不习惯 ...

虽然我很佩服你勇于挑战你丝毫不了解的技术领域，并敢于指点江山，激扬文字的精神。

但十八大都说了，“空谈误国，实干兴邦”，做点你能做的事情，给论坛增加点会员用得上的知识吧

其他的事情，有微软公司操心呢

shenghua8

liucqa 发表于 2013-11-20 16:09
我说的是禁用所有宏，并且不通知，依然可能会运行宏。这是2003的bug

我当时宏安全设置为“中”，心想这 ...

既然你说了，2003解密是很容易的事。
那么对于有心解密的人来说，将 XLSX 另存为 XLS ，再去解密，照样是很容易的事。
还是猫叫个咪。

liucqa

shenghua8 发表于 2013-11-21 10:09
既然你说了，2003解密是很容易的事。
那么对于有心解密的人来说，将 XLSX 另存为 XLS ，再去解密，照样是 ...

你越发的胡说了，没打开密码想另存文件？你试试

没知识不是你的错，但是出来胡说，就是你的不对了...

shenghua8

liucqa 发表于 2013-11-20 18:29
虽然我很佩服你勇于挑战你丝毫不了解的技术领域，并敢于指点江山，激扬文字的精神。

但十八大都说了， ...

对，就像你说的：
“空谈误国，实干兴邦”，做点你能做的事情，给论坛增加点会员用得上的知识。
大家到论坛里来，都是为了学习。
不是每个人出生就啥都懂，不是每个人从进论坛起就居高临下。
论坛里有很多热心的人，也乐于帮助自己。
还记得我去年在一篇请求帮助获取网页数据到Excel里的帖子里，你也是主动接话，好像胸中大有文章，我是“回复”加“发消息”给你，结果一点帮助都没有，最后来了个“你到网上购买模块去”。
好在有别的热心人帮助，我还是终于实现了这个功能。
目前作为一个“学导”，其他人不是来聆听你教诲的。
有能力给出帮助，那就直接了当给出帮助。
没能力给出帮助，那不是空谈是什么。
坛里有能力的热心人多了去了。

清风幽闲

Sub 删除模块()
With ThisWorkbook.VBProject
    For Each mysub In .VBComponents
        If mysub.Type <> 100 Then
            .VBComponents.Remove mysub
        End If
    Next mysub
End With
End Sub
如果只是删除模块，而不是删除事件，用此法试，也许能有帮助

liucqa

shenghua8 发表于 2013-11-21 10:20
对，就像你说的：
“空谈误国，实干兴邦”，做点你能做的事情，给论坛增加点会员用得上的知识。
大家到 ...

说的真好，以后就不要在论坛上发乱七八糟的言论了，好好学习才是真格的

shenghua8

liucqa 发表于 2013-11-21 10:15
你越发的胡说了，没打开密码想另存文件？你试试

没知识不是你的错，但是出来胡说，就是你的不对了...
...

我知道你很有知识，
也许你觉得这论坛里就你最有知识。
而且你级别也较高，还可以对级别低的用户为所欲为，甚至可以使用语言暴力，使用权限暴力。

那么，你是有身份的人，请你自重！
能给出帮助就给出点帮助；
不能给出帮助的话，说好听点，不必纠缠。本来就没啥和气可言，再伤了更不好。弄得都不愉快，何必呢！
少一点教导，多一点务实吧。

shenghua8

liucqa 发表于 2013-11-21 10:35
说的真好，以后就不要在论坛上发乱七八糟的言论了，好好学习才是真格的

这样就对了。你的这句自我鉴定还可以。

liucqa

shenghua8 发表于 2013-11-21 10:39
我知道你很有知识，
也许你觉得这论坛里就你最有知识。
而且你级别也较高，还可以对级别低的用户为所欲 ...

你话好多

说了半天，你也没理解我要告诉你什么

知识的海洋是无边无际的，我们现在只是站在一小块礁石上，没有资格对别人的一片陆地说三道四。
你如果能理解我说的这句话，就知道我为什么不厌其烦的给你回帖了

shenghua8

清风幽闲 发表于 2013-11-21 10:23
Sub 删除模块()
With ThisWorkbook.VBProject
    For Each mysub In .VBComponents

好，收到。这个也不错。