Eliminar Macro de inicio

Buenos días,
Tengo el siguiente código en thisworkbook
MsgBox ("Bienvenido al cotizador de LAS PUERTAS ALEMANAS")
Sheets("Bienvenido").Select
Index.Show
If Sheets("inicio").Visible = False Then
Sheets("inicio").Visible = True
Else
End If
Sheets("inicio").Select
Range("a1").Select
Inicio.Show
End Sub
Más adelante el proceso genera una copia del archivo y deseo eliminar este inicio del archivo nuevo. ¿Cómo lo hago?
Respuesta
1
Veamos... cuando haces la copia del libro, obviamente se copiara con el mismo macro del libro original... y tu deseas que ese nuvo libro no tenga el macro...
Bueno, no se puede eliminar una parte del código con otro código.
Lo que puedes hacer es lo siguiente:
Trabaja con una plantilla que tenga un nombre especifico y constante ejemplo
plantilla1
En esa plantilla modificas el script inicial así:
If ActiveWorkbook.Name <> "Pantilla1" Then Exit Sub
Luego tu macro inicial
Ahora bien, el truco esta en el nombre que le darás a la copia del libro
Cuando grabes esa copia le das otro nombre, así cuando se ejecute esa copia el srcipt estará evaluando el nombre del archivo que en este caso sera diferente de plantilla1 y por ende se saldrá del script.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas