Como guardar e fechar automaticamente um ficheiro do Excel após um determinado período de inatividade?
Em alguns casos — como ao guardar um ficheiro do Excel num disco partilhado —, se o ficheiro permanecer aberto por um utilizador, outros não conseguem editá-lo. Como fechar automaticamente o ficheiro após um determinado período de inatividade, facilitando assim o trabalho em equipa? Este artigo apresenta-lhe uma solução prática com VBA.
Salvar e fechar automático de um ficheiro do Excel após um determinado período de inatividade com código VBA
Para guardar e fechar automaticamente um ficheiro do Excel após um período de inatividade específico, siga os passos abaixo.
1. Abra o livro que pretende configurar para ser guardado e fechado automaticamente após um determinado período de inatividade. Em seguida, prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel direito para abrir a janela de Código. Depois, copie e cole o código VBA abaixo na janela de Código. Veja a imagem:
Código VBA 1: Salvar e fechar automático de um ficheiro do Excel após um determinado período de inatividade
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Em seguida, clique em Inserir > Módulo e copie e cole o código abaixo na janela do módulo. Veja a imagem:
Código VBA 2: Salvar e fechar automático de um ficheiro do Excel após um determinado período de inatividade
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. Prima simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
5. Clique em Ficheiro > Guardar Como > Procurar. Veja a imagem:
6. Na caixa de diálogo Guardar Como, selecione uma pasta para guardar o ficheiro, introduza o nome pretendido na caixa Nome do ficheiro, escolha Livro do Excel com Macros Ativadas na lista suspensa Guardar como tipo e, por fim, clique no botão Guardar. Veja a imagem:
A partir de agora, sempre que abrir este livro, irá surgir uma caixa de diálogo Kutools para Excel. Introduza o tempo com base no qual pretende guardar e fechar o livro e, em seguida, clique no botão OK.
E o livro será guardado e fechado automaticamente após esse período de inatividade especificado. Veja a imagem:
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
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