Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Fechar um livro depois de um tempo limite é atingido

Ir para baixo

Fechar um livro depois de um tempo limite é atingido Empty Fechar um livro depois de um tempo limite é atingido

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos