检查工作表是否包含任何VBA代码

Question

我正在寻找一个能够检查工作表中是否包含任何VBA代码的代码。实际上，我希望所有工作表都没有任何VBA代码。

此检查当然将通过另一个VBA代码完成。

感谢您的帮助。

Answer 1

确保在“宏信任”设置下选中“信任对VBA项目对象模型的访问”：

Sub CheckForCode()
Dim comp As Object, x As Long
    For Each comp In ThisWorkbook.VBProject.VBComponents
        With comp.CodeModule
            x = x + .CountOfLines
        End With
    Next
    If x > 0 Then MsgBox x & " Lines of VBA-code"
End Sub