Fechar um livro depois de um tempo limite é atingido

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Fechar um livro depois de um tempo limite é atingido

Mensagem por alexandrevba em Qui Set 06, 2012 6:33 am

Bom dia!!
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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum