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

zerozha

如题。

foshan

Sub gg()

' Dim Vbc As Object

Dim Vbc As VBComponent ' 必须是引用了 Microsoft Visual Basic For Application Extensibility 5.3 才能这样声明，否则出错

For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents

Select Case Vbc.Type

Case 1, 2, 3

With Application.VBE.ActiveVBProject.VBComponents

.Remove .Item(Vbc.Name) '删除模块、类模块、窗体

End With

Case Else

Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines '删除 工作表 或 Thisworkbook 上面的第1至最後1行代码

End Select

Next

End Sub

zerozha

不行。

提示：不信任到vb的连接。

清风_ll

选中工具栏-->宏-->安全性...-->可靠发行商-->信任对于"Visual Basic 项目"的访问

foshan

抱歉!正如 清风_ll 兄 所言。

zerozha

这样做，兼容性有问题吗？

换了台机器行不行？每台机器都要“

选中工具栏-->宏-->安全性...-->可靠发行商-->信任对于"Visual Basic 项目"的访问

”？？？

zw1028

“必须是引用了 Microsoft Visual Basic For Application Extensibility 5.3 才能这样声明，否则出错”
怎样引用？或在那里引用？请指正？

hyq125

以下是引用[I]zw1028[/I]在2005-12-8 12:07:07的发言：[BR]

“必须是引用了 Microsoft Visual Basic For Application Extensibility 5.3 才能这样声明，否则出错”
怎样引用？或在那里引用？请指正？

e:\1.jpg

hyq125

很好的代码啊！

我刚才试了，对于工作表上所建立的控件却每能删除啊！！！

zw1028

重复提问：“必须是引用了 Microsoft Visual Basic For Application
Extensibility 5.3 才能这样声明，否则出错”怎样引用？或在那里引用？请指正？请高手老师教诲！