Como proteger automaticamente todas as planilhas ao fechar uma pasta de trabalho do Excel?
Normalmente, você pode proteger manualmente uma planilha ou a pasta de trabalho inteira com senha usando o recurso Proteger Planilha ou Proteger Pasta de Trabalho no Excel. No entanto, se você deseja proteger automaticamente todas as planilhas com senha ao fechar a pasta de trabalho, o que pode fazer? Este artigo mostrará um método VBA para alcançar isso.
Proteja todas as planilhas ao fechar a pasta de trabalho do Excel com código VBA
Proteja todas as planilhas ao fechar a pasta de trabalho do Excel com código VBA
Para proteger automaticamente todas as planilhas ao fechar uma pasta de trabalho, aplique o seguinte código VBA.
1. Na pasta de trabalho em que deseja proteger todas as planilhas ao fechar o arquivo, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel esquerdo e, em seguida, copie o código VBA abaixo para a janela Código. Veja a captura de tela:
Código VBA: Proteja todas as planilhas 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, pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
Após a etapa acima, todas as planilhas ou a planilha especificada serão protegidas automaticamente ao fechar a pasta de trabalho.
Notas:
Proteja rapidamente várias/todas as planilhas com uma senha simultaneamente na pasta de trabalho atual |
O Proteger Planilha utilitário do Kutools para Excel ajuda você a proteger facilmente várias ou todas as planilhas com uma senha de uma só vez. Veja a captura de tela abaixo:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora |
Artigos relacionados:
- Como usar lista suspensa em uma planilha protegida no Excel?
- Como bloquear células específicas sem proteger toda a planilha no Excel?
- Como ocultar fórmula, mas exibir o resultado sem proteger a planilha no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins