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.