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

shenghua8

liucqa 发表于 2013-11-21 10:43
你话好多

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

我还能说什么呢，
我只是说了一句关于那片“大陆”的个人看法。
其实与你我都无关。
引发这么长的争论。
算了吧！
你很认真，认真是好事。
我对你本无成见。
都不说了！

就当为我发的这篇帖子炒作了。
至此为止。

liucqa

shenghua8 发表于 2013-11-21 10:55
我还能说什么呢，
我只是说了一句关于那片“大陆”的个人看法。
其实与你我都无关。

好吧，看你态度不错，人也不傻，我告诉你去除模块的最简单思路

另存成xlsx，然后open，再另存成xls，代码你自己写

这比那些操作VBE的代码省事多了，至少不用信任工程，也不用引用什么库

香川群子

帮楼主完善一下：

1. Sub MacroDel_ThisFile()
   
2.     myName = ActiveWorkbook.Path & "\Backup_" & ActiveWorkbook.Name
   
3.     '备份文件名称。可自己修改。
   
4.    
   
5.     '操作模块需要事先引用 Microsoft Visual Basic For Application Extensibility 5.3
   
6.     For Each vbc In ThisWorkbook.VBProject.VBComponents
   
7.         If vbc.Type = 100 Then vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
   
8.     Next
   
9.     '上面3句代码是检查并删除Sheets中的代码
   
10. 
    
11.     Sheets.Copy '复制所有sheets但排除所有模块、类模块、窗体
    
12.     Application.DisplayAlerts = False '已有同名备份文件时不出现选择是否覆盖的对话框
    
13.    '如希望有提醒功能则把上面这一句注释掉。
    
14. 
    
15.     Workbooks(Application.Windows.Count).SaveAs myName '另存为备份文件
    
16.     ActiveWorkbook.Close 'Backup File Close 关闭备份文件
    
17. 
    
18.     ActiveWorkbook.Close 'Source File Close 关闭源文件
    
19. End Sub

复制代码

香川群子

把下面代码放在个人宏文件中(Personal.xls)
运行宏以后可以打开别的文件并去除所有代码和模块。

1. Sub MacroDel_OtherFile()
   
2.     '引用 Microsoft Visual Basic For Application Extensibility 5.3
   
3.    
   
4.     With Workbooks.Open(Application.GetOpenFilename(",*.xls"))
   
5.         For Each vbc In .VBProject.VBComponents
   
6.             Select Case vbc.Type
   
7.                 Case 1, 2, 3 'vbext_ct_StdModule/ClassModule/MSForm
   
8.                     With Application.VBE.ActiveVBProject.VBComponents
   
9.                         .Remove .Item(vbc.Name)
   
10.                     End With
    
11.                 Case Else '100=vbext_ct_Document (Sheet/ThisWorkbook)
    
12.                     vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
    
13.             End Select
    
14.         Next
    
15.         Application.DisplayAlerts = False
    
16.         .SaveAs .path & "\Backup" & Format(Date, "-yyyy-mm-dd") & ".xls"
    
17.         .Close False
    
18.     End With
    
19. End Sub
    

复制代码

香川群子

Sheets.Copy 这一句代码就可以去掉模块和窗体，确实是很牛逼的一句代码。


如果是在自己明白可控的范围内，那么用好这一句代码就能达到很好的效果，何乐而不为呢？


…………
当然，如果要考虑通用性和逻辑性，那么确实光凭这一句代码是无法保证的。


这句代码的用法，我是从Zamyi 大侠那里得知的。

香川群子

如果还需要删除Sheet中的宏按钮，那么增加代码如下：

   For Each Sht In Worksheets
        Sht.Activate
        For Each Shp In ActiveSheet.Shapes
            If Shp.Type = 8 Or Shp.Type = 12 Then Shp.Delete Else Shp.OnAction = ""
        Next
    Next
   
除了简易按钮(Type=8)和控件按钮(Type=12)以外，
还可能有图片(Type=12)以及其它图形可以被用作宏按钮。

那么上述代码的作用是：
删除按钮，保留其它图形但除去宏启动链接。(解除 .OnAction 属性)

老谭酸菜

我的另类办法:
把EXCEL文档放到Lotus Notes邮箱发送到另一个邮箱，再从这个接收的邮箱中下载EXCEL文档。这时里面除了工作表，什么代码按钮窗体之类的全无踪影了.
原因：邮件在服务器上经过了趋势防毒墙过滤，除了工作表，什么都不会留下！
{:soso_e113:}

shenghua8

liucqa 发表于 2013-11-21 11:12
好吧，看你态度不错，人也不傻，我告诉你去除模块的最简单思路

另存成xlsx，然后open，再另存成xls，代 ...

拜托！
是写到宏代码里，由宏代码来执行。要你这个思路有何用。
你骂也骂了，咒也咒了，我不和你计较。行了吧。
看看楼上的侠圣，既细心又完美。
亏你还是18级。

shenghua8

香川群子 发表于 2013-11-21 12:48
Sheets.Copy 这一句代码就可以去掉模块和窗体，确实是很牛逼的一句代码。

哇！
得到 香川群子 老师的支持和补充，我实在太感荣幸了。
你的完善，对我来说，实在是太完美了！

shenghua8

老谭酸菜 发表于 2013-11-21 14:22
我的另类办法:
把EXCEL文档放到Lotus Notes邮箱发送到另一个邮箱，再从这个接收的邮箱中下载EXCEL文档。这 ...

谭老师这是一个好特别的主意。
按你这么说，清除得好干净，找机会我也试试看。

我用这句代码的意思，是想在宏执行到最后，自动保存成另一个文件，然后分发给其他人。