eliminar la macro

23/04/2006 - 01:11 por cronosnacho | Informe spam
necesito eliminar la macro "auto_open" desde otra macro.

como?

Preguntas similare

Leer las respuestas

#6 cronosnacho
24/04/2006 - 23:56 | Informe spam
muy bien, y si en vez de borra auto_open lo quisiera cambiar de nombre
por auto_open_no se podria hacer? gracias fenomeno
Respuesta Responder a este mensaje
#7 Héctor Miguel
25/04/2006 - 08:09 | Informe spam
hola, ignacio !

... y si en vez de borra auto_open lo quisiera cambiar de nombre por auto_open_no ...



'este caso'... pudiera ser 'sencillo'... [o no tanto] :)) [p.e.]
-> la primer linea de un procedimiento NO ES [necesariamente] la linea donde 'aparece' el nombre o instruccion del mismo :-(
-> la primer linea del 'siguiente' procedimiento es LA INMEDIATA POSTERIOR a una instruccion 'End Sub' o 'End Function'
[por lo cual]... si se tiene la 'costumbre' de ir dejando lineas 'vacias' entre los procecimientos... -?-
es probable que la siguiente instruccion 'Sub Mi_procedimiento' o 'Function Mi_funcion' NO este 'inmediata' [me explico?]

a) si NO existe la posibilidad de que haya lineas 'vacias' [o incluso 'comentarios'] entre los procedimientos...
Sub Renombrar_Auto_open()
Dim Linea_0 As Integer
With ThisWorkbook.VBProject.VBComponents("módulo1").CodeModule
Linea_0 = .ProcStartLine("auto_open", vbext_pk_Proc)
.DeleteLines Linea_0, 1
.InsertLines Linea_0, "Sub Auto_Open_NO()"
End With
End Sub

b) si NO quieres 'correr riesgos' y para mayor 'seguridad' [por si las dudas con las lineas 'intermedias']...
Sub Renombrar_Auto_open_2()
Dim Linea As Integer, Linea_1 As Integer
With ThisWorkbook.VBProject.VBComponents("módulo1").CodeModule
For Linea = 1 To .CountOfLines
If InStr(LCase(.Lines(Linea, 1)), "sub auto_open()") > 0 _
Then Linea_1 = Linea: Exit For
Next
.DeleteLines Linea_1, 1
.InsertLines Linea_1, "Sub Auto_Open_NO()"
End With
End Sub

toma en cuenta que no se tiene alguna 'preparacion/prevencion' por -posibles- 'errores' :-(
y... NO 'pierdas de vista' los comentarios del punto 3 en el mensaje anterior ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#8 cronosnacho
25/04/2006 - 15:40 | Informe spam
1000 gracias
Respuesta Responder a este mensaje
#9 elponejo
17/09/2012 - 09:36 | Informe spam
cronosnacho escribió el 23/04/2006 01:11 :
necesito eliminar la macro "auto_open" desde otra macro.

como?


No dejemos de lado el pensamiento paralelo. Han intentado guardar el libro como un documento SIN macros? de esta forma eliminas el Auto Open. O bien, separa las hojas que necesites, las guardas como documento sin macros, y las regresas posteriormente. Implica mas pasos, si, pero es efectivo. Saludos!!!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida