Cerrar Excel a los 30 seg.

14/05/2007 - 13:07 por AgerGaston | Informe spam
Hola a todos.
Tengo una macro auto_open que realiza ciertas actualizaciones y necesito que
despues de unos 30 (segundos) o 40 (esto lo puede variar) cierre el Excel por
completo grabando los cambios, sin que me pregunte nada.

Se puede hacer ?
Me dicen como ?

Gracias y saludos
 

Leer las respuestas

#1 KL
14/05/2007 - 13:51 | Informe spam
Prueba lo siguiente:

Paso 1) en el modulo VBA de tu libro (ThisWorkbook) pon:

'modulo ThisWorkbook-
Private Sub Workbook_Open()
Application.OnTime Now + TimeSerial(0, 0, 5), "CerrarLibro"
End Sub
'modulo ThisWorkbook-

Paso 2) en un modulo estandar dentrode tu libro (p.ej. Modulo1) pon:

'modulo estandar-
Sub CerrarLibro()
ThisWorkbook.Close savechanges:=False
End Sub
'modulo estandar-

Paso 3) Guarda los cambios y cierra el libro (tambien, en vez de cerrar, puedes ejecutar el procedimiento Workbook_Open directamente
desde el editor VBA)

Paso 4) Vuelve a abrirlo habilitando los macros

Saludos,
KL


"AgerGaston" wrote in message news:
Hola a todos.
Tengo una macro auto_open que realiza ciertas actualizaciones y necesito que
despues de unos 30 (segundos) o 40 (esto lo puede variar) cierre el Excel por
completo grabando los cambios, sin que me pregunte nada.

Se puede hacer ?
Me dicen como ?

Gracias y saludos

Preguntas similares