Borrar macros

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

Saludos KL
Cuando corre la macro me aparece el error :
"Error de compilación:
No se ha definido el tipo definido por usuario"
Sobre la línea: Dim Modulo As VBIDE.VBComponent
¿Puede que falte cargar alguna referencia? ó es otra cosa?
Agradezco la ayuda
Pepe Frasquet

"KL" escribió en el mensaje
news:

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

"pepefras" wrote in message
news:

Saludos KL
Cuando corre la macro me aparece el error :
"Error de compilación:
No se ha definido el tipo definido por usuario"
Sobre la línea: Dim Modulo As VBIDE.VBComponent
¿Puede que falte cargar alguna referencia? ó es otra cosa?
Agradezco la ayuda
Pepe Frasquet

"KL" escribió en el mensaje
news:

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

Hola Pepe

¿Puede que falte cargar alguna referencia? ó es otra cosa?

Efectivamenete, tienes q establecer la referencia a VBA Extensibility
Library (desafortunadamente no se como lo pondria en castellano).

Saludos,
KL

En excel

la referencia se llama Microsoft Visual Basic Applications Extensibility,
dependiendo de la version que tengas sera 5.3 o 5.4 etc.

Saludos.


KL wrote:

Hola Pepe

>¿Puede que falte cargar alguna referencia? ó es otra cosa?

Efectivamenete, tienes q establecer la referencia a VBA Extensibility
Library (desafortunadamente no se como lo pondria en castellano).

Saludos,
KL