Fechar um livro depois de um tempo limite é atingido
Página 1 de 1
Fechar um livro depois de um tempo limite é atingido
Bom dia!!
Como programar o livro para ser fechado após um determinado tempo depois de aberto.
Como programar o livro para ser fechado após um determinado tempo depois de aberto.
- Código:
Private Sub Workbook_Open()
Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes
Application.DisplayAlerts = True
TimeInMinutes = 180 'O tempo está definido para 180 minutos; faça as alterações necessárias.
If TimeInMinutes > 5 Then
TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60)
Start = Timer
Do While Timer < Start + TotalTimeInMinutes
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
Application.DisplayAlerts = False
MsgBox "Este arquivo foi aberto para " & TotalTime / 60 & " minutos. Você tem 5 minutos para salvar antes do Excel fecha."
End If
Start = Timer
Do While Timer < Start + (5 * 60)
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
Application.DisplayAlerts = False
MsgBox "Excel será fechado agora."
Application.Quit
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|