Excel Fechar Planilha por tempo de inatividade...

[Julio Oviedo]

Caros colegas, estou quebrando a cabeça, preciso de um código para fechar e salvar um arquivo caso ele fique inativo por um tempo pre determinado,
Exemplo: arquivo aberto começa a contar o tempo, se ficar inativo salva e fecha depois de 1 minuto, se alterado zera a contagem regressiva e começa a contar novamente até 1 minuto.

Eu consegui fazer o código mas ele esta fechando mesmo eu alterando...segue código para análise dos amigos...

Workbook:

 

Private Sub Workbook_Open()

Dim nmName As Name
Dim blNameExists As Boolean
Dim dtTime As Date
With ThisWorkbook
For Each nmName In ThisWorkbook.Names
If nmName = "LastChangeTime" Then blNameExists = True
Next
If Not blNameExists Then
.Names.Add Name:="LastChangeTime", RefersTo:=VBA.CDbl(VBA.Now())
Else
.Names("LastChangeTime").RefersTo = VBA.CDbl(VBA.Now())
End If
End With
dtTime = VBA.Now() + TimeSerial(0, 1, 0)
Application.OnTime dtTime, "SaveClose"

End Sub

 

_____________________________________________

Modulo:

Sub SaveClose()
On Error Resume Next
If VBA.CDbl(VBA.Now()) > VBA.CDbl(ThisWorkbook.Names("LastChangeTime").RefersTo + TimeSerial(0, 1, 0)) Then
ThisWorkbook.Close SaveChanges:=True
End If
End Sub