Macro Excel VBA para cerrar planilla
Necesito la forma de cerrar una planilla Excel utomaticamente después de transcurrido determinado tiempo desde su apertura, por ej después de los 20min desde que se abrió.
1 respuesta
Respuesta de pardojch
1
Estoy enviando el código que a partir que se abra el archivo dura 120 segundos y se cierra sin gravar cambios
Sub tiempo()
Private Sub auto_open()
Dim Duracion, Inicio, Final, TotalTiempo
Duracion = 120 ' Set duration.
Inicio = Timer ' Set start time.
Do While Timer < Inicio + Duracion
DoEvents ' Yield to other processes.
Loop
Final = Timer ' Set end time.
TotalTiempo = Final - Inicio ' Calculate total time.
If TotalTiempo = 120 Then
Application.Quit
Workbooks("tiempo.XLS").Close savechanges:=False
End If
End Sub
Sub tiempo()
Private Sub auto_open()
Dim Duracion, Inicio, Final, TotalTiempo
Duracion = 120 ' Set duration.
Inicio = Timer ' Set start time.
Do While Timer < Inicio + Duracion
DoEvents ' Yield to other processes.
Loop
Final = Timer ' Set end time.
TotalTiempo = Final - Inicio ' Calculate total time.
If TotalTiempo = 120 Then
Application.Quit
Workbooks("tiempo.XLS").Close savechanges:=False
End If
End Sub
