Проверьте, содержит ли лист какой-либо код 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