Este fórum está sendo desativado

[GENECI]

Boa tarde!
Olha a dúvida que deparei-me
Considerando os dados do arquivo extremamente confidencial.
É possível elaborar um código VBA, que faça o seguinte: Após 5 minutos de inatividades salvar o arquivo fechar e sair do Excel automaticamente.

Considerando que o nome do arquivo é Confidencial.

Grato - GENECI.

[alexandrevba]

Bom dia!!

Tente assim

Código: Selecionar todos

'Insira esse código dentro de um módulo de Arquivo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime DTime + TimeValue("00:05:00"), "SalvaArquivo", , False
End Sub
 
Private Sub Workbook_Open()
    DTime = Time
    Application.OnTime DTime + TimeValue("00:05:00"), "SalvaArquivo"
End Sub

Código: Selecionar todos

'Insira esse código dentro de um módulo
Public DTime As Date
 
Sub SalvaArquivo()
    DTime = Time
    Application.OnTime DTime + TimeValue("00:05:00"), "SalvaArquivo"
    ThisWorkbook.Save
    ActiveWorkbook.Close True
End Sub

Att

[GENECI]

Boa tarde!
Respondi e não consegui visualizar a minha resposta, se está em duplicidade peço desculpas e favor desconsiderar.

Muito obrigado por atender a minha solicitação.
Segui o procedimento informado e não obtive o resultado esperado.
Por favor pode salvar o arquivo e disponibiliza-lo.

Grato - GENECI.

[alexandrevba]

Bom dia!!

Veja o arquivo

Outra fonte:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=308

Obs: Eu não sei se o código vai funcionar considerando a inatividade do arquivo pelo Sistema Operacional, mas se abrir o arquivo fizer uma ação nele e parar por um minuto, a instância fechará.

Att

[GENECI]

Boa tarde! alexandrevba.

Muito obrigado por desenvolver o código VBA conforme solicitação.
Funcionou perfeito no excel 2013.

Grato - GENECI