¿Cómo proteger automáticamente todas las hojas de cálculo al cerrar un libro de Excel?

Normalmente, puede proteger manualmente una hoja de cálculo o todo el libro con contraseña utilizando la función Proteger Hoja o Proteger Libro en Excel. Pero si desea proteger automáticamente todas las hojas de cálculo con contraseña al cerrar el libro, ¿qué puede hacer? Este artículo le mostrará un método VBA para lograrlo.

Proteger todas las hojas de cálculo al cerrar el libro de Excel con código VBA

Proteger todas las hojas de cálculo al cerrar el libro de Excel con código VBA

Para proteger automáticamente todas las hojas de cálculo al cerrar un libro, aplique el siguiente código VBA.

1. En el libro en el que desea proteger todas las hojas de cálculo al cerrar el archivo, presione las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisWorkbook en el panel izquierdo y luego copie el siguiente código VBA en la ventana de Código. Ver captura de pantalla:

Código VBA: Proteger todas las hojas de cálculo al cerrar el libro

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

Consejos:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Luego presione las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

Después del paso anterior, todas las hojas de cálculo o la hoja de cálculo especificada se protegerán automáticamente al cerrar el libro.

Notas:

Artículos relacionados:

• ¿Cómo usar una lista desplegable en una hoja de cálculo protegida en Excel?
• ¿Cómo bloquear celdas específicas sin proteger toda la hoja de cálculo en Excel?
• ¿Cómo ocultar fórmulas pero mostrar el resultado sin proteger la hoja de cálculo en Excel?