Cerrar Excel a los 30 seg.

hola, ?

Es mucho pedir que por ejemplo: si al archivo le puse que espere 40 segundos antes de que cierre
me aparezca en pantalla un cuadrito con el tiempo restante mas un boton de cancelar
llegado el caso que necesite que se detenga ???
NO se si se puede o tengo mucha imaginacion.

de que se puede... se puede :)) solo una 'preguntta':
-> vas a necesitar que 'el cuadrito' vuelva a aparecer a los 40 segundos despues de alguna 'detencion' ?
-> quieres que 'se espere' a que le respondan si si o si no debe auto-cerrarse el libro ?
-> cuantas oportunidades le quieres dar al usuario de estar suspendiendo las intenciones de cerrarlo ?
-> algun otro detalle 'en el tintero' ?

saludos,
hector.

Hola Hector.
La idea es la siguiente:
Se abre el archivo (se debe ejecutar el auto_open correspondiente), debe
aparecer un cuadrito que diga (algo asi como...) faltan 40 seg, faltan 35
seg, faltan En el caso que necesite cancelar la "Application.OnTime
Now + TimeSerial(0, 0, 40)" un boton de cancelar y listo.
1-Una vez cancelado NO hace falta que vuelva a aparecer.
2-La cancelacion que sea opcional si no cancelo que siga con su vida y si
opto por cancelar que detenga la Application.OnTime Now.
3-Oportunidades solo una (cancelo o no lo cancelo).

Espero haber interpretado tus consultas

Gracias y saludos


"Héctor Miguel" escribió:

hola, ?

> Es mucho pedir que por ejemplo: si al archivo le puse que espere 40 segundos antes de que cierre
> me aparezca en pantalla un cuadrito con el tiempo restante mas un boton de cancelar
> llegado el caso que necesite que se detenga ???
> NO se si se puede o tengo mucha imaginacion.

de que se puede... se puede :)) solo una 'preguntta':
-> vas a necesitar que 'el cuadrito' vuelva a aparecer a los 40 segundos despues de alguna 'detencion' ?
-> quieres que 'se espere' a que le respondan si si o si no debe auto-cerrarse el libro ?
-> cuantas oportunidades le quieres dar al usuario de estar suspendiendo las intenciones de cerrarlo ?
-> algun otro detalle 'en el tintero' ?

saludos,
hector.

hola, ?

La idea es la siguiente: Se abre el archivo (se debe ejecutar el auto_open correspondiente)
debe aparecer un cuadrito que diga (algo asi como...) faltan 40 seg, faltan 35 seg, faltan...
En el caso que necesite cancelar la "Application.OnTime Now + TimeSerial(0, 0, 40)" un boton de cancelar y listo.
1- Una vez cancelado NO hace falta que vuelva a aparecer.
2- La cancelacion que sea opcional si no cancelo que siga con su vida y si opto por cancelar que detenga la Application.OnTime Now...
3- Oportunidades solo una (cancelo o no lo cancelo).

1) si es 'necesario' que se vaya actualizando el 'cuadrito' avisando: faltan 40... faltan 39... faltan 38... [etc.]
-> revisa estas conversaciones: -> http://tinyurl.com/39moyy

2) si puedes 'vivir' SIN el relojito de la cuenta regresiva... prueba con algo +/- como lo siguiente:
[en el evento '_open' de tu libro]

Private Sub Workbook_Open()
' aqui las otras lineas de tu procedimiento 'normal' a la apertura del libro '
Dim Espera As Byte ' segundos para la respuesta '
Espera = 5 ' 40 ' <= prueba y luego le 'ajustas' el tiempo '
Select Case CreateObject("WScript.Shell").Popup( _
"Debo cerrar el archivo por inactividad." & vbCr & _
"Tienes " & Espera & " segundos para CANCELAR...", Espera, _
"Auto-cerrar el libro ???...", 33)
Case -1, 1
MsgBox "Cerrando por inactividad !!!"
Case 2
MsgBox "Ok... seguimos trabajando :)"
End Select
End Sub

-> despues de probar... cambias los MsgBoxes por las acciones que consideres pertinentes :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.