En este caso, lo que tendrías que hacer, es copiar la misma instrucción dentro del mismo evento Workbook_Open
Este es el código del evento que ya tienes
Private Sub Workbook_Open()
Sheets("Nombre de tu hoja").Select
Application.OnTime TimeValue("07:59:00"), "proteger"
End Sub
Después del comando Applicatión. On Time... seleccionas la otra hoja que deseas proteger:
Sheets("Tu otra hoja").Select y
Application. OnTime TimeValue("08:59:00"), "nueva macro"
Esto significa que tendrás que crear una nueva macro por ej. con el nombre de proteger2 (ó Sub "nombre_de_tu_hoja") con el mismo código de la macro anterior previo cambio de los datos necesarios:
Sub nueva_macro()
Sheets("Tu_otra_hoja").Select 'Con este código primero seleccionamos la hoja para protegerla
Sheets("Tu_otra_Hoja"). Protect "123" '(sustituye los números del paréntesis por tu password o si deseas conservar el mismo)
Application. ActiveWorkbook. Save
End Sub
Hola, buenas tardes, muy buena información. Y ahora como hago la macro para que el documento se vuelva a habilitar al día siguiente a las 8:00 am. Es muy importante tu gran apoyo por favor, muchas gracias. - christian pascual torres