Como proteger automaticamente todas as planilhas ao fechar uma 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 uma 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 Sub

3. 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?