macro proteger hoja a una hora y desprotegerla a otra

[leptis]

buenos días, no sé si será posible crear una macro para que a una hora determinada proteja una hoja y a otra hora la desproteja? gracias anticipadas.

[Abraham Valencia]

Sí, siempre y cuando el archivo esté abierto (de estar cerrado se complica y va más allá de Excel). Lee sobre Application.Ontime

Saludos

[leptis]

Gracias por contestar, diste en la tecla, cuando está abierto me funciona, lo deseo para cuando lo abra después de la hora fijada de cierre esté protegido y no se pueda DESPROTEGER hasta la hora de inicio.

[Abraham Valencia]

Lee sobre el evento "Open" del libro, asimismo, ordénate un poco, por ejemplo si para ti la hora de inicio es 1:00 p.m., entonces, si abro el archivo a las 2:00 p.m. se queda protegido ¿pero si lo abro a las 2:00 a.m. o similar? Se entiende, además, que la clave de protección solo la tienes tú y que también sabes que mucha gente podría averiguarla tan solo entrando a tus macros ¿de acuerdo? Por cierto ¿en qué nivel de VBA estás? No has enviado ningún intento o avance.

[leptis]

hola gracias por el interés, tengo lo siguiente

en ThisWorkbook tengo lo siguiente:

Private Sub Workbook_Open()

Application.OnTime TimeValue("21:00:00"), "proteger"

Application.OnTime TimeValue("09:00:00"), "desproteger"
End Sub

en modulo  lo siguiente:

Sub proteger()
ActiveSheet.Protect "Contraseña"
End Sub

Sub desproteger()
ActiveSheet.Unprotect "Contraseña"
End Sub

cuando está abierto sin problemas, cuando esté cerrado el libro y se utilice después de las 21 horas que esté protegido.