Как показать лист в определенное время суток?

Question

Я хочу, чтобы лист был спрятан весь день, кроме определенного времени.

В сети есть такой маркер

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

И речь идет о предоставлении ярлыков для клеток

Но я хочу, чтобы он применялся ко всему листу и был бы объектом кода листа!

Моя рабочая тетрадь открыта весь день с перерывом в полдень. Я использую последнее обновление Microsoft Excel 2016 для Windows.

Спасибо за твою помощь!

Answer 1

Вам нужно создать макрос, который показывает, а затем скрывает листы:

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

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

Ваша основная саб будет:

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