Como proteger automaticamente todas as folhas de cálculo ao fechar uma pasta de trabalho do Excel?
Normalmente, pode proteger manualmente uma folha de cálculo ou toda a pasta de trabalho com uma palavra-passe utilizando a funcionalidade **Proteger Folha** ou **Proteger Pasta de Trabalho** no Excel. Mas e se quiser que todas as folhas sejam automaticamente protegidas com palavra-passe ao fechar a pasta de trabalho? Este artigo mostra-lhe um método em VBA para o conseguir.
Proteja todas as folhas de cálculo ao fechar a Pasta de trabalho do Excel com código VBA
Proteja todas as folhas de cálculo ao fechar a Pasta de trabalho do Excel com código VBA
Para proteger automaticamente todas as folhas de cálculo ao fechar a pasta de trabalho, aplique o seguinte código VBA.
1. Na pasta de trabalho em que pretende proteger todas as folhas de cálculo ao fechar o ficheiro, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisWorkbook no painel esquerdo e, em seguida, copie o código VBA abaixo para a janela Código. Veja a imagem:
Código VBA: Proteger todas as folhas de cálculo ao fechar a pasta de trabalho
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
End Sub
Dicas:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub3. Em seguida, prima as teclas Alt+Q para fechar a janela do Microsoft Visual Basic for Applications.
Após o passo anterior, todas as folhas de cálculo — ou apenas a folha especificada — serão protegidas automaticamente ao fechar a pasta de trabalho.
Notas:
Proteja rapidamente várias/todas as folhas de cálculo com uma palavra-passe simultaneamente no Livro de Trabalho Atual |
A utilidade Proteger Folha de Cálculo do Kutools para Excel permite-lhe proteger facilmente várias ou todas as folhas de cálculo com uma palavra-passe, tudo de uma só vez. Veja a imagem abaixo:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já |
Artigos relacionados:
- Como utilizar uma lista pendente numa folha de cálculo protegida no Excel?
- Como bloquear células específicas no Excel sem proteger toda a folha de cálculo?
- Como ocultar a fórmula e exibir apenas o resultado no Excel sem proteger a folha 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