删除4.0宏表源代码,同时可处理!$A$2错误

jlhao

新建EXCEL文件，按Alt+F11，插入模块，把下面代码粘贴进去
同时可处理!$A$2

1. 
   
2. Sub RmvMacros()
   
3.     Dim wbk As Workbook
   
4.     Dim strFilename As String
   
5.     strFilename = Application.GetOpenFilename("Excel 文件 (*.xls;*.xlsx),*.xls;*.xlsx") '要删除宏的文件名
   
6.     If strFilename = "False" Then Exit Sub
   
7.     Application.EnableEvents = False '禁止在打开时触发事件
   
8.     Application.DisplayAlerts = False
   
9.     Set wbk = Workbooks.Open(strFilename)
   
10.     For Each sht In wbk.Sheets
    
11.         sht.Visible = True
    
12.         If sht.Type = 3 Or sht.Type = 4 Then sht.Delete
    
13.     Next
    
14.     For i = wbk.Names.Count To 1 Step -1
    
15.         If wbk.Names(i).Visible = False Then wbk.Names(i).Delete
    
16.     Next i
    
17.     wbk.Close savechanges:=True
    
18.     Application.DisplayAlerts = True
    
19.     Application.EnableEvents = True
    
20. End Sub
    

复制代码

jlhao

关闭需处理文件，执行代码，选择出错文档即可。适用于2003版，其它版本未测试。

zhaogang1960

谢谢分享！

jlhao

zhaogang1960 发表于 2012-7-26 11:22
谢谢分享！

希望能帮上大家，哈哈

liucqa

names处理有点简单了     

kangatang

不错，学到这一句
  Application.EnableEvents = False '禁止在打开时触发事件

jlhao

liucqa 发表于 2012-7-26 12:08
names处理有点简单了

因为大部分人使用名称时不会隐藏，所以隐藏的名称对大部分人来说删掉也不会影响

sclzah

学习了，看来我还要认真学习才行。

√改變習慣≈

{:soso_e101:}这代码用在哪？

jlhao

√改變習慣≈ 发表于 2012-8-8 13:59
这代码用在哪？

关闭中毒文件，新建一个空EXCEL文件，把代码复制到VBE窗口，执行即可。