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

shenghua8 · 发表于 2013-11-19 19:37

本帖最后由 shenghua8 于 2013-11-22 15:16 编辑

Excel 2003另存为新工作簿时，去除模块里的宏，其实只需这一句：
Sub 另存为不带宏()
Sheets.Copy
End Sub

感谢香川群子老师，在第33至36楼作了很详细的完善！

再次感谢香川群子老师对此贴非常中肯的评价：
“高手熟知各种高端技术，但不必因此而贬低楼主发现的较为低级的手段”
完整内容详见48楼
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1073310&pid=7316910

补充内容 (2013-11-22 22:35):

感谢山菊花总版主在61楼给出了另辟蹊径的解决办法！
http://club.excelhome.net/forum. ... 310&pid=7317707

zhaogang1960 · 发表于 2013-11-19 19:40

泼点冷水：
如果工作表代码区有代码，则不能去掉

shenghua8 · 发表于 2013-11-19 19:52

zhaogang1960 发表于 2013-11-19 19:40
泼点冷水：
如果工作表代码区有代码，则不能去掉

赵版：
又是您来帮助我，十分感谢！
我今天一直在找“另存为新工作簿时删除宏”这个命题，可是大多数都让我云里雾里，又是要加载宏，又是要开启保护，又是要循环什么的。
后来，我经过启示：说是复制全部工作表到新工作簿时，不会将宏复制过去。
于是，我动手录制了一遍宏，再通过您以前教我的知识积累，于是千言万语简化成上面一句。

您刚说“工作表代码区有代码”是什么意思呢？是不是在VB编辑器里能看到的“ThisWorkbook”里有代码？

zhaogang1960 · 发表于 2013-11-19 19:59

shenghua8 发表于 2013-11-19 19:52
赵版：
又是您来帮助我，十分感谢！
我今天一直在找“另存为新工作簿时删除宏”这个命题，可是大多数都 ...

Sheet1、Sheet2……Sheetn

shenghua8 · 发表于 2013-11-19 20:03

zhaogang1960 发表于 2013-11-19 19:59
Sheet1、Sheet2……Sheetn

哦，原来是这样。

再请教赵版：
通常像我这样的菜鸟，录制的宏都在“模块”里。
那么，另存为新工作簿时，仅需要去掉这些模块里的宏，“Sheets.Copy” 会不会出现什么问题？有它够不够用呢？

maditate · 发表于 2013-11-19 20:04

再来一点冷水，这一句就不算宏了？ Sheets.Copy

shenghua8 · 发表于 2013-11-19 20:08

maditate 发表于 2013-11-19 20:04
再来一点冷水，这一句就不算宏了？ Sheets.Copy

由原工作簿里有这一句，复制出新的工作簿不会出现这一句。
新工作簿像贾府门前的石狮子一样干净。

shenghua8 · 发表于 2013-11-19 20:21

本帖最后由 shenghua8 于 2013-11-21 11:00 编辑

动手试验了一下，果然像赵版据说：工作表代码区有宏，这样是去不掉的。
不过，我今天想要的结果已经达到了，因为我的宏都在模块里，Sheets.Copy 之后产生的新工作簿里没有模块及模块里的宏了。

这样吧，我暂且编辑一下帖子，将：
“Excel 2003 另存为新工作簿时，不要宏。其实只要这一句。”
改为
“Excel 2003 另存为新工作簿时，去除模块里的宏，其实只要这一句。”

如果还不妥，请多指导！

zhaogang1960 · 发表于 2013-11-19 21:16

shenghua8 发表于 2013-11-19 20:21
动手试验了一下，果然像赵版据说：工作表代码区有宏，这样是去不掉的。
不过，我今天想要的结果已经达到了 ...

如果代码都在模块中，可以去掉：
Sub Macro1()
Sheets.Copy
ActiveWorkbook.Close True, ThisWorkbook.Path & "\备份.xls"
End Sub

liucqa · 发表于 2013-11-19 22:38

另存成xlsx不就没代码了吗

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

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