Como proteger automaticamente todas as planilhas ao fechar a pasta de trabalho do Excel?
Normalmente, você pode proteger manualmente uma planilha ou toda a pasta de trabalho por senha com o recurso Proteger planilha ou Proteger pasta de trabalho no Excel. Mas se você quiser proteger todas as planilhas automaticamente com senha no fechamento da pasta de trabalho, o que pode fazer? Este artigo mostrará um método VBA para conseguir 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 a pasta de trabalho, aplique o seguinte código VBA.
1. Na pasta de trabalho, você deseja proteger todas as planilhas ao fechar o arquivo, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duas vezes no Esta pasta de trabalho no painel esquerdo e, em seguida, copie o código VBA abaixo para a janela Código. Veja a imagem:
Código VBA: protege 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
Tips:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub3. Em seguida, pressione o outro + Q para fechar a janela Microsoft Visual Basic for Applications.
Após a etapa acima, todas as planilhas ou planilha especificada serão protegidas automaticamente ao fechar a pasta de trabalho.
Notas:
Artigos relacionados:
- Como usar a lista suspensa em uma planilha protegida no Excel?
- Como bloquear células especificadas sem proteger a planilha inteira no Excel?
- Como ocultar a fórmula, mas exibir o resultado sem proteger a planilha no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
