¿Cómo mostrar una hoja a una hora específica del día?

Question

Quiero que la hoja esté oculta todo el día excepto a una hora específica.

Hay un macro como este en la red.

Sub Auto_Open()
  Application.OnTime TimeValue("17:00"), "HideRows"
  Application.OnTime TimeValue("09:00"), "RevealRows"
End Sub

Y se trata de darle etiquetas a las células.

¡Pero quiero que se aplique a toda la hoja y que sea un código objeto de hoja!

Mi libro de trabajo está abierto todo el día, con un descanso al mediodía. Estoy ejecutando la última actualización de Microsoft Excel 2016 en Windows.

¡Gracias por su ayuda!

Answer 1

Necesita crear macros que muestren y luego oculten las hojas:

Sub ShowSheet()
    WorkSheets("SheetName").Visible = xlSheetVisible
End Sub

Sub HideSheet()
    WorkSheets("SheetName").Visible = xlSheetHidden
End Sub

Tu sub principal será:

Sub Auto_Run()
    Application.OnTime TimeValue("15:00"), "ShowSheet"
    Application.OnTime TimeValue("15:30"), "HideSheet"
End Sub