Página 1 de 1

Macro para detectar inatividade e fechar a planilha

Enviado: 21 Out 2017 às 12:58
por MagnoLima
Olá estou com uma duvida sobre alguma macro para identificar se a planilha está inativa e fecha-la. Aqui no fórum só encontrei maneiras para ela fechar usando ou não. Não sei se ficou claro, mas, queria que enquanto o usuário estiver utilizando ela fica normal, mas, se ele parar de mexer por uns 5 minutos ela feche.

Re: Macro para detectar inatividade e fechar a planilha

Enviado: 21 Out 2017 às 14:44
por babdallas

Macro para detectar inatividade e fechar a planilha

Enviado: 26 Out 2017 às 11:46
por blackout7
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1") = "00:05:00"

Dim gCount As Date

    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"

Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("a1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
   Application.DisplayAlerts = False
   Application.Quit
    Exit Sub
End If
End Sub

Re: Macro para detectar inatividade e fechar a planilha

Enviado: 27 Out 2017 às 14:19
por alexandrevba