Activar el Calculo manual por código y Trabar Excel en Backgroud

27/02/2004 - 17:36 por gleal | Informe spam

Buen dia

Tengo un excel el cual hace muchos calculos, obviamente si no le pongo que el calculo lo haga manual este se tarda una eternidad, me ha pasado que al reiniciar la maquina este valor regresa a Automatico y a veces se me olvida cambiarlo, hasta aqui no hay tanto problema, el problema viene que este excel se lo tengo que entregar a varios usuarios y temo que ellos no hagan este "ajuste", alguien puede ayudarme haber si existe alguna funcion para VBA para poner el Calculo Manual antes de que le de el boton de Iniciar?

Por otro lado este mismo archivo hace una serie de procesos, pero si no tengo la hoja de excel en primer plano y activa no continua con el proceso, se pueden ejecutar macros cuando el excel no sea la aplicacion activa?

De antemano mil gracias

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Beto

27/02/2004 - 20:05 | Informe spam

gleal wrote:

Buen dia,

Tengo un excel el cual hace muchos calculos, obviamente si no le pongo que el calculo lo haga manual este se tarda una eternidad, me ha pasado que al reiniciar la maquina este valor regresa a Automatico y a veces se me olvida cambiarlo, hasta aqui no hay tanto problema, el problema viene que este excel se lo tengo que entregar a varios usuarios y temo que ellos no hagan este "ajuste", alguien puede ayudarme haber si existe alguna funcion para VBA para poner el Calculo Manual antes de que le de el boton de Iniciar?.

Por otro lado este mismo archivo hace una serie de procesos, pero si no tengo la hoja de excel en primer plano y activa no continua con el proceso, se pueden ejecutar macros cuando el excel no sea la aplicacion activa?.

En el evento Workbook_open coloca:

Application.Calculation =xlCalculationManual

Anda al Editor de VB y en el explorador de proyectos, haz doble-click en
el módulo ThisWorkbook del libro en cuestión. En la ventana de código
que te aparece al lado, en la lista de arriba (donde dice [General]),
selección Workbook y te aparecerá automáticamente:

Private Sub Workbook_Open()

End Sub

Ahí al medio coloca la sentencia que te dije.
Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

Responder a este mensaje

#2 gleal

28/02/2004 - 00:36 | Informe spam

Beto

Excelente, gracias

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida