Macro automática en apertura libro

12/06/2006 - 08:49 por Usuaria | Informe spam
Pretendo que cuando se abra un determinado libro, se autoejecute una macro
para activar automáticamente 'iteración' en modo de cálculo. La macro es
ésta:

Sub Auto_open()
With Application
.Calculation = xlManual
.Iteration = True
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Sin embargo, no se ejecuta automáticamente cada vez que abro el libro. He
introducido el código en la primera hoja, en ThisWorkbook, pero no
funciona. ¿Qué estoy haciendo mal? ¿Cómo hay que introducir el código para
que funcione?

Gracias anticipadas.

Preguntas similare

Leer las respuestas

#1 tomaste
12/06/2006 - 10:52 | Informe spam
Seguramente tienes activado el tema de seguridad de macros, y por dicho
motivo no se te ejecuta la macro, en seguridad de macros, marcalo a
nivel de seguridad- baja-

Hasta pronto.
Rosa wrote:
Pretendo que cuando se abra un determinado libro, se autoejecute una macro
para activar automáticamente 'iteración' en modo de cálculo. La macro es
ésta:

Sub Auto_open()
With Application
.Calculation = xlManual
.Iteration = True
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Sin embargo, no se ejecuta automáticamente cada vez que abro el libro. He
introducido el código en la primera hoja, en ThisWorkbook, pero no
funciona. ¿Qué estoy haciendo mal? ¿Cómo hay que introducir el código para
que funcione?

Gracias anticipadas.
Respuesta Responder a este mensaje
#2 KL
12/06/2006 - 11:27 | Informe spam
Hola Rosa,

Los codigos Auto_Open y Auto_Close solo se ejecutan desde los modulos estandar, p.ej. Modulo1, Modulo2, etc. - no de los modulos de clase (ThisWorkbook, modulos de hojas, UserForms, etc.)

Saludos,
KL


"Rosa" wrote in message news:
Pretendo que cuando se abra un determinado libro, se autoejecute una macro
para activar automáticamente 'iteración' en modo de cálculo. La macro es
ésta:

Sub Auto_open()
With Application
.Calculation = xlManual
.Iteration = True
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Sin embargo, no se ejecuta automáticamente cada vez que abro el libro. He
introducido el código en la primera hoja, en ThisWorkbook, pero no
funciona. ¿Qué estoy haciendo mal? ¿Cómo hay que introducir el código para
que funcione?

Gracias anticipadas.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida