如何用VBA，删除所有的宏

ycsgtzn · 发表于 2016-9-4 11:36

如何用VBA，删除所有的宏

ycsgtzn · 发表于 2016-9-4 11:50

看来是无解啊

opiona · 发表于 2016-9-4 13:04

Rem 删除指定文件内的VBA代码：参数为：文件全路径
Sub oneDelete(sFileName As String)
Application.DisplayAlerts = False
On Error Resume Next
Dim wkBook As Workbook
Set wkBook = GetObject(sFileName)
Dim objVbc As Object
With wkBook.VBProject
For Each objVbc In .VBComponents
Select Case objVbc.Type
Case 1, 2, 3
.VBComponents.Remove .VBComponents(objVbc.Name)
Case Else
With objVbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
Application.Windows(wkBook.Name).Visible = True
wkBook.Close 1
End Sub

复制代码

opiona · 发表于 2016-9-4 13:05

批量写入和删除代码.rar (221.9 KB, 下载次数: 295)

ycsgtzn · 发表于 2016-9-4 13:13

我的意思，是直接删除当前打开的文件里面的宏

lsc900707 · 发表于 2016-9-4 13:24

ycsgtzn 发表于 2016-9-4 11:50
看来是无解啊

删除工作簿里的所有宏，请自行测试效果：
Sub MacroDel()
Dim vbcCom, Vbc
Set vbcCom = ActiveWorkbook.VBProject.VBComponents
For Each Vbc In vbcCom
      If Vbc.Name Like "Sheet*" Or Vbc.Name Like "This*" Then
         Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
      Else
         vbcCom.Remove (Vbc)
      End If
Next Vbc
ThisWorkbook.Save
End Sub

Yalishanda30 · 发表于 2018-9-10 20:43

本帖最后由 Yalishanda30 于 2018-9-10 20:46 编辑

放错地方了。。。。。

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

[已解决] 如何用VBA，删除所有的宏