[已解决]文件另存后，文件内的模块代码也同时删除

commanding05a · 发表于 2011-10-11 14:44

如题，就是不想让模块代码随同另存文件一起生成，另存后，代码按钮及代码全部删除，请问这样能实现么，请高手赐教

最佳答案

huweifvba

2011-10-11 15:17

sub 另存()
workbooks.add(1)
application.displayalerts = false
thisworkbook.sheets("工作表名").cells.copy activesheet.range("A1")
activeworkbook.close true
application.displayalerts = true
end sub

跳转到最佳答案楼层

studyexcel · 发表于 2011-10-11 14:57

2007以上另存为xlsx的应该就可以了吧

zjdh · 发表于 2011-10-11 14:59

用宏来解决并不难。

commanding05a · 发表于 2011-10-11 15:05

回复 zjdh 的帖子

你好，师兄，我用的是2003，请问能否给出代码

studyexcel · 发表于 2011-10-11 15:06

回复 zjdh 的帖子

{:031:}{:031:}

youxinggy · 发表于 2011-10-11 15:07

不允许文件复制就行了

commanding05a · 发表于 2011-10-11 15:12

谁能帮帮忙啊，各位，谢谢了先

huweifvba · 发表于 2011-10-11 15:17

这个最佳答案由 huweifvba 给出，感谢 huweifvba 的回答。

单击隐藏图章

sub 另存()
workbooks.add(1)
application.displayalerts = false
thisworkbook.sheets("工作表名").cells.copy activesheet.range("A1")
activeworkbook.close true
application.displayalerts = true
end sub

commanding05a · 发表于 2011-10-11 15:36

8楼的师兄，很感谢你的帮助，谢谢！！！

commanding05a · 发表于 2011-10-11 15:40

回复 huweifvba 的帖子

还有一个问题，你这只是另存一个工作表，我的这个工作薄有两个工作表，另一个工作表是辅助用料清单，不能缺少，能否一起另存？

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