按下按钮即删除部分工作表和所有宏模块

zhangshine

    一个工作簿内有若干个表，其中多个表内有宏按钮。
    希望能在按下汇总!表中的“标准化”按钮以后自动删除A1!，B2!和C3!，删除工作簿中所有按钮和宏模块（包括执行代码自身），然后关闭文件。
    感觉有点难度，还望前辈们不吝赐教，谢谢！

ili

1. Sub 按钮1_单击()
   
2.     Dim Sh As Worksheet
   
3.     Dim C As Object
   
4.     Dim M As Object
   
5.     On Error Resume Next
   
6.     Application.DisplayAlerts = False
   
7.     Sheets(Array("A1", "B2", "C3")).Delete
   
8.     For Each Sh In Sheets
   
9.         For Each C In Sh.Shapes
   
10.             If C.Type = 8 Or C.Type = 12 Then C.Delete
    
11.         Next
    
12.     Next
    
13.     For Each M In ThisWorkbook.VBProject.VBComponents
    
14.         If M.Type = 100 Then
    
15.             M.CodeModule.DeleteLines 1, M.CodeModule.CountOfLines
    
16.         Else
    
17.             ThisWorkbook.VBProject.VBComponents.Remove M
    
18.         End If
    
19.     Next
    
20. End Sub
    

复制代码

勾选 "信任对VB工程的访问"
2007 及以上版本： 文件---选项---信任中心---信任中心设置---宏设置---勾选 信任对 VBA 工程对象模型的访问。
2003                    :  工具---选项---安全性---宏安全性---可靠发行商--- 勾选  信任对 VB 项目 的访问。

zhangshine

ili 发表于 2015-7-29 23:22
勾选 "信任对VB工程的访问"
2007 及以上版本： 文件---选项---信任中心---信任中心设置---宏设置---勾 ...

前辈我实在太崇拜您了！

zhangshine

    有一种情况：有时候刚刚点了清除所有宏模块的按钮，又想到表格哪里需要修改，可是在删宏模块之前忘记保存一下文件。
    于是，让人崩溃的问题来了——我无法撤销上一步操作，可是帮助实现各种功能的所有宏模块都已经被删掉了。于是会纠结，是从头开始做表格——还是从别的文件把模块导过来……
    所以我修改了一下，在代码开始位置先执行保存文件。这样遇到上述问题时就可以关闭文件，选择不保存文件（也就相当于撤销了“清除所有宏模块”的操作）。这个思路也同样适用于其它不可撤销操作的宏命令。
    以下是修改后的代码，和大家分享一下。

1. Sub 按钮1_单击()
   
2.     ActiveWorkbook.Save
   
3.     Dim Sh As Worksheet
   
4.     Dim C As Object
   
5.     Dim M As Object
   
6.     On Error Resume Next
   
7.     Application.DisplayAlerts = False
   
8.     Sheets(Array("A1", "B2", "C3")).Delete
   
9.     For Each Sh In Sheets
   
10.         For Each C In Sh.Shapes
    
11.             If C.Type = 8 Or C.Type = 12 Then C.Delete
    
12.         Next
    
13.     Next
    
14.     For Each M In ThisWorkbook.VBProject.VBComponents
    
15.         If M.Type = 100 Then
    
16.             M.CodeModule.DeleteLines 1, M.CodeModule.CountOfLines
    
17.         Else
    
18.             ThisWorkbook.VBProject.VBComponents.Remove M
    
19.         End If
    
20.     Next
    
21. End Sub
    

复制代码

zhangshine

ili 发表于 2015-7-29 23:22
勾选 "信任对VB工程的访问"
2007 及以上版本： 文件---选项---信任中心---信任中心设置---宏设置---勾 ...

前辈，代码很好用，但我遇到一个问题：在执行代码时，表格中原先设置好的自动筛选下拉按钮也被删掉了，请问该如何避免呢。

F-Realize

学习了，谢谢楼主分享，和大家的解答

zhang445465853

zhangshine 发表于 2015-7-30 21:38
有一种情况：有时候刚刚点了清除所有宏模块的按钮，又想到表格哪里需要修改，可是在删宏模块之前忘记保 ...

帮助很大。