Página 1 de 1
Após 5 min. de inatividade salvar o arquivo fechar e sair
Enviado: 28 Mai 2016 às 16:45
por 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.
Re: Após 5 min. de inatividade salvar o arquivo fechar e sai
Enviado: 30 Mai 2016 às 08:50
por 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
Após 5 min. de inatividade salvar o arquivo fechar e sair
Enviado: 30 Mai 2016 às 15:27
por 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.
Re: Após 5 min. de inatividade salvar o arquivo fechar e sai
Enviado: 31 Mai 2016 às 11:44
por 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
Após 5 min. de inatividade salvar o arquivo fechar e sair
Enviado: 31 Mai 2016 às 15:00
por GENECI
Boa tarde! alexandrevba.
Muito obrigado por desenvolver o código VBA conforme solicitação.
Funcionou perfeito no excel 2013.
Grato - GENECI