Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

como eliminar macros

17/08/2009 - 09:08 por José Rafael | Informe spam
Ayuda Hacer una pregunta
Me gustaría obtener una rutina de código para eliminar macros de un libro y
así poder archivar una hoja "plana" del mismo.
El código que pongo no me funciona.


'Borra las macros

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
email Siga el debateRespuesta 9 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 José Rafael
17/08/2009 - 11:56 | Informe spam
perdón, me faltaba comunicar los Dim:

Dim Modulo As VBIDE.VBComponent, _
Modulos As VBIDE.VBComponents

saludos


"José Rafael" escribió en el mensaje
news:
Me gustaría obtener una rutina de código para eliminar macros de un libro
y así poder archivar una hoja "plana" del mismo.
El código que pongo no me funciona.


'Borra las macros

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

Preguntas similares

 

Busqueda sugerida :