Este fórum está sendo desativado

[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.

[babdallas]

Veja se ajuda este link

[url]http://www.tomasvasquez.com.br/forum/vi ... ?t=404/url]

[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

[alexandrevba]

Bom dia!!

Oute fonte:
https://excelribbon.tips.net/T008192_Fo ... ivity.html
http://www.vbaexpress.com/kb/getarticle.php?kb_id=308

Att