Foro Excel

fervabi22 escribió:Hola Tocayo, en verdad lo que pides no es nada imposible pero de igual manera voy a ver la manera de darte alguna ayuda posible.
Contactarme a mi correo
Saludos desde Perú.

Código: Seleccionar todo

'Elimina todos los objetos del proyecto VBA

    Sub DeleteAllVBACode()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
       
        Set VBProj = ActiveWorkbook.VBProject
       
        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = vbext_ct_Document Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
    End Sub