Proteger un archivo de Excel Automáticamente en Cierta Fecha

En este video tutorial te mostraré una macro paso a paso que te ayudará a que un archivo de Excel se proteja automáticamente en la fecha que tú decidas.

Lo haremos mediante una macro desarrollada desde cero en la que diremos que si el archivo se abre después de cierta fecha, se protegerá la estructura del archivo y las hojas.

Ver Video Proteger un archivo de Excel en cierta fecha

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Proteger el archivo en cierta fecha

Al llegar a la fecha indicada se aplicarán las siguientes protecciones al archivo:

• Proteger la estructura. Evitar que se eliminen, agreguen o copien hoja.
• Proteger todas las hojas. Evitar que se modifiquen las celdas.

Código VBA de las macros

Este código lo debes incluir dentro del objeto ThisWorkbook. Se usará el evento Workbook_Open donde se ejecutará la macro al iniciar el archivo.

'EXCELeINFO
'MVP Sergio Alejandro Campos
'http://www.exceleinfo.com
'https://www.youtube.com/user/sergioacamposh

Private Sub Workbook_Open()
Dim FechaBloqueo As Date
Dim FechaActual As Date
Dim Hoja As Worksheet

FechaBloqueo = "2022/04/30"
FechaActual = VBA.Date

If FechaActual >= FechaBloqueo Then

    ActiveWorkbook.Protect Structure:=True, Password:="12345"
    
    For Each Hoja In ThisWorkbook.Sheets
        Hoja.Protect Password:="12345"
    Next Hoja

MsgBox "El archivo ha sido protegido debido a que llegó a su periodo de prueba", vbInformation

End If

End Sub

Private Sub Desbloquear()

Dim Hoja As Worksheet

    ActiveWorkbook.Unprotect Password:="12345"
    
    For Each Hoja In ThisWorkbook.Sheets
        Hoja.Unprotect Password:="12345"
    Next Hoja

End Sub

Descarga el archivo de ejemplo

Este archivo se bloqueará el 30 de abril o después – EXCELeINFO.zip

Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.