vba吧 关注：17,029贴子：66,522
- 14回复贴，共1页
供参考
Sub Remove_some_vba_code() '删除 工作表代码
'工具--引用-- Microsoft Visual Basic For Application Extensibility 5.3
Dim activeIDE As Object 'VBProject
Set activeIDE = ActiveWorkbook.VBProject
Dim Element As VBComponent
Dim LineCount As Integer
For Each Element In activeIDE.VBComponents
If Left(Element.Name, 5) = "Sheet" Then
LineCount = Element.CodeModule.CountOfLines
Element.CodeModule.DeleteLines 1, LineCount
End If
Next
End Sub
Sub Remove_some_vba_code() '删除 工作表代码
'工具--引用-- Microsoft Visual Basic For Application Extensibility 5.3
Dim activeIDE As Object 'VBProject
Set activeIDE = ActiveWorkbook.VBProject
Dim Element As VBComponent
Dim LineCount As Integer
For Each Element In activeIDE.VBComponents
If Left(Element.Name, 5) = "Sheet" Then
LineCount = Element.CodeModule.CountOfLines
Element.CodeModule.DeleteLines 1, LineCount
End If
Next
End Sub
3个步骤
根据
6
条资料总结
分析问题
全网精选 6 篇资料
1. 如何批量删除Excel工作簿中vba代码_百度文库
百度文库
2. 在excel中利用VBA删除工作簿中的所有批注-伙伴云
伙伴云
3. VBA代码实现删除全部代码及类模块、窗体方案_知乎
知乎
4. Day5-1-跟着孙兴华学习Excel VBA 第一季_excel vba 21.按指定条件批量删除工作簿代码-CSDN博客
网页链接 5. VBA代码怎么清除全部工作表区域内容？ - 搜狗问问
搜狗问问
6. E灵之删除VBA代码
网页链接 总结答案
要删除Excel工作簿中的所有VBA代码，包括类模块、窗体、过程代码等，你可以使用以下VBA代码：
Sub RemoveAllVBACode（）1
Dim Wb As Workbook1
Dim FileName As String1
Dim vbc As VBComponent, a As Shape, sh As Worksheet3
Dim i As Long1
FileName = 网页链接 & "\Book25-1.xlsm" ' 指定要删除代码的工作簿路径3
Set Wb = Workbooks.Open（FileName）3
网页链接 = False3
' 删除工作表中的所有形状1
For Each sh In Wb.Sheets3
For Each a In sh.Shapes3
a.Delete1
Next a1
Next sh1
' 删除所有VBA组件（类模块、窗体、过程代码等）
For Each vbc In Application.ActiveWorkbook.VBProject.VBComponents3
Select Case vbc.Type3
Case 1, 2, 3 ' 1： 模块， 2： 类模块， 3： 窗体4
网页链接 vbc3
Case Else1
网页链接 1, vbc.CodeModule.CountOfLines3
End Select1
Next vbc1
网页链接 = True3
网页链接 SaveChanges:=False ' 关闭工作簿，不保存更改4
End Sub1
根据
6
条资料总结
分析问题
全网精选 6 篇资料
1. 如何批量删除Excel工作簿中vba代码_百度文库
百度文库
2. 在excel中利用VBA删除工作簿中的所有批注-伙伴云
伙伴云
3. VBA代码实现删除全部代码及类模块、窗体方案_知乎
知乎
4. Day5-1-跟着孙兴华学习Excel VBA 第一季_excel vba 21.按指定条件批量删除工作簿代码-CSDN博客
网页链接 5. VBA代码怎么清除全部工作表区域内容？ - 搜狗问问
搜狗问问
6. E灵之删除VBA代码
网页链接 总结答案
要删除Excel工作簿中的所有VBA代码，包括类模块、窗体、过程代码等，你可以使用以下VBA代码：
Sub RemoveAllVBACode（）1
Dim Wb As Workbook1
Dim FileName As String1
Dim vbc As VBComponent, a As Shape, sh As Worksheet3
Dim i As Long1
FileName = 网页链接 & "\Book25-1.xlsm" ' 指定要删除代码的工作簿路径3
Set Wb = Workbooks.Open（FileName）3
网页链接 = False3
' 删除工作表中的所有形状1
For Each sh In Wb.Sheets3
For Each a In sh.Shapes3
a.Delete1
Next a1
Next sh1
' 删除所有VBA组件（类模块、窗体、过程代码等）
For Each vbc In Application.ActiveWorkbook.VBProject.VBComponents3
Select Case vbc.Type3
Case 1, 2, 3 ' 1： 模块， 2： 类模块， 3： 窗体4
网页链接 vbc3
Case Else1
网页链接 1, vbc.CodeModule.CountOfLines3
End Select1
Next vbc1
网页链接 = True3
网页链接 SaveChanges:=False ' 关闭工作簿，不保存更改4
End Sub1
八头蟒
