|
本帖最后由 jlhao 于 2012-8-29 11:03 编辑
新建EXCEL文件,按Alt+F11,插入模块,把下面代码粘贴进去
同时可处理!$A$2
- Sub RmvMacros()
- Dim wbk As Workbook
- Dim strFilename As String
- strFilename = Application.GetOpenFilename("Excel 文件 (*.xls;*.xlsx),*.xls;*.xlsx") '要删除宏的文件名
- If strFilename = "False" Then Exit Sub
- Application.EnableEvents = False '禁止在打开时触发事件
- Application.DisplayAlerts = False
- Set wbk = Workbooks.Open(strFilename)
- For Each sht In wbk.Sheets
- sht.Visible = True
- If sht.Type = 3 Or sht.Type = 4 Then sht.Delete
- Next
- For i = wbk.Names.Count To 1 Step -1
- If wbk.Names(i).Visible = False Then wbk.Names(i).Delete
- Next i
- wbk.Close savechanges:=True
- Application.DisplayAlerts = True
- Application.EnableEvents = True
- End Sub
复制代码
|
评分
-
6
查看全部评分
-
|