Como guardar e fechar o livro após um período de inatividade?
Por vezes, pode fechar acidentalmente um livro ao estar ocupado com outras tarefas durante muito tempo, o que pode levar à perda de dados importantes. Existe algum truque para guardar e fechar automaticamente o livro caso esteja inativo durante um determinado período?
Salvar e fechar automático do livro após inatividade durante um determinado período de tempo com VBA
Salvar e fechar automático do livro após inatividade durante um determinado período de tempo com VBA
O Excel não inclui uma função incorporada para resolver este problema, mas posso fornecer-lhe um código de macro que guarda e fecha o livro automaticamente após um período de inatividade.
1. Ative o livro que pretende salvar e fechar automaticamente após alguns segundos de inatividade e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para criar um script de Módulo e cole nele o código seguinte. Veja a imagem:
Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:00:15")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
End Sub
Sub SavedAndClose()
ActiveWorkbook.Close Savechanges:=True
End Sub
3. Em seguida, no painel Explorador de Projetos, faça duplo clique em Este Livro e cole o código seguinte no script ao lado. Veja a imagem:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TimeStop
End Sub
Private Sub Workbook_Open()
Call TimeSetting
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call TimeStop
Call TimeSetting
End Sub
4. Aceda ao módulo que inseriu no passo 2, faça duplo clique nele e prima a tecla F5 para executar o código. Veja a imagem:
5. Passados 15 segundos, surge uma caixa de diálogo a lembrá-lo de guardar o livro; clique em Sim para salvar e fechar o livro.
Dicas:
(1) No primeiro código, pode alterar o tempo de inatividade nessa expressão:Now + TimeValue("00:00:15")
(2) Se nunca tiver guardado o ficheiro anteriormente, aparecerá primeiro a caixa de diálogo Guardar Como, pedindo-lhe que o guarde.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos