Borrar macros

17/02/2005 - 08:15 por pepefras | Informe spam
Cuando creo un nuevo libro desde otro por código, "hereda todas las macros"
de el libro de donde procede. Me gustaria incluir un código que las borre en
la copia.
Gracias anticipadas
Pepe Frasquet
 

Leer las respuestas

#1 KL
17/02/2005 - 10:48 | Informe spam
Hola Pepe,

Hace algun tiempo Hector Miguel publico el siguiente codigo q te podria ser
de utilidad.

Saludos,
KL

'--Inicio Codigo
Sub Eliminar_todos_los_codigos()
Dim Modulo As VBIDE.VBComponent, _
Modulos As VBIDE.VBComponents
Set Modulos = ActiveWorkbook.VBProject.VBComponents
For Each Modulo In Modulos
Select Case Modulo.Type
Case VBExt_ct_StdModule, VBExt_ct_MSForm, _
VBExt_ct_ClassModule
Modulos.Remove Modulo
Case Else
With Modulo.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
Set Modulos = Nothing
End Sub
'--Fin Codigo


"pepefras" wrote in message
news:eM$
Cuando creo un nuevo libro desde otro por código, "hereda todas las
macros" de el libro de donde procede. Me gustaria incluir un código que
las borre en la copia.
Gracias anticipadas
Pepe Frasquet

Preguntas similares