Espero me podais ayudar a un problema que tengo.
Cuando elimino las macros de mi proyecto ejecutando este código que muy amablemente me proporciono Antoni.
Public Function 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
Activeworkbook.Close True
End Function
Tengo un problema. Cuando se termina de ejecutar la macro que elimina todas las funciones y formularios de mi archivo, intento salir de excel usando el comando ActiveWorkbook.Close True
Se guardan todos los cambios pero la macro DeleteAllVBACode no se borra del proyecto. Alguíen me podría decir porque?
Subo un archivo de ejemplo que si la fecha de caducidad del programa es el 2/1/2012 borra todo el proyecto completamente.
Muchas gracias a todos.
