请问：如何删除工作簿中所有控件、vba代码，窗体，模块？

foshan · 发表于 2005-12-9 08:45

对于 EXCEL 2003 版本，在VBE中，工具--引用-- Microsoft Visual Basic For Application Extensibility 5.3 (不同的版本，Microsoft Visual Basic For Application Extensibility 5.3 的写法可能不同)

exp_dyq · 发表于 2010-7-16 09:10

谢谢呀谢谢呀,非常感谢

tfei · 发表于 2010-9-21 16:17

佛山君太有才了，多谢。
我曾买了一本书，照书上说的代码做，却没能如愿，不想到在这发现这个好东东。谢谢。

excchu · 发表于 2010-12-4 22:51

引用方法：
菜单中工具→ 宏 →VB编辑器→ 工具→ 引用

lm3312 · 发表于 2011-3-18 15:20

如果不删除这么多，只清除当前活动工作表的代码窗口里的VBA代码，怎么做啊？注意不是删除当前工作表。

CJXUEHAO · 发表于 2014-6-20 10:53

不知道什么原因，我这边测试完之后，他却不会删除哦，我引用了那个E...5.3，但还是不行的

CJXUEHAO · 发表于 2014-6-20 10:54

foshan 发表于 2005-12-8 09:49
' Dim Vbc As Object
For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents
...

你好，我同样设置了，但是还是不行哦

laynet · 发表于 2014-6-20 16:09

Sub Z减肥()
Dim i
Dim Vbc As Object
Dim myPW
Dim Sh As Worksheet
'1.先信任对 VBA 项目的访问，宏安全性为低，以便删除代码
Dim oWshell
Set oWshell = CreateObject("WScript.Shell")
oWshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD" '信任对 VBA 项目的访问，以便自动删除病毒模块 "ToDOLE" 和 ThisWorkbook 中的病毒代码
oWshell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD" '信任对 VBA 项目的访问，以便自动删除病毒模块 "ToDOLE" 和 ThisWorkbook 中的病毒代码
'-----------------删掉所有工作表中的宏代码--------------
ActiveWorkbook.Activate
For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count - 2
ActiveWorkbook.VBProject. _
VBComponents(i).CodeModule.DeleteLines 1, _
ActiveWorkbook.VBProject. _
VBComponents(i).CodeModule.CountOfLines
Next
'-------------------------------------------------------
'-----------------删掉所有模块和窗体--------------
On Error Resume Next
For Each Vbc In ActiveWorkbook.VBProject.VBComponents
Select Case Vbc.Type
Case 1, 2, 3
With Application.VBE.ActiveVBProject.VBComponents
.Remove .Item(Vbc.Name)
End With
End Select
Next
'-------------------------------------------------------
End Sub

复制代码

VBA万岁 · 发表于 2014-6-20 17:13

foshan 发表于 2005-12-8 09:49
' Dim Vbc As Object
For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents
...

学习了，谢谢！

lcjy11185 · 发表于 2014-6-20 17:29

我也做个记号

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

请问：如何删除工作簿中所有控件、vba代码，窗体，模块？

foshan太强大了，谢谢。