Скрытие листов.

[frozzy_16]

Возможно ли скрывать листы по времени.

Пример:
Файл с большим количеством листов, каждый лист это день месяца.
Скрыть лист, 1 число месяца, 2 числа в 15:00. Что бы человек который будет пользоваться файлом 2 числа не мог просмотреть что было в листе за 1 число.

заранее благодарен!!!!

[Dophin]

возможно.

формулируйте задачу, выкладывайте пример

[Maxx]

Sub SheetsHide()
Dim Sh As Object
For Each Sh In ThisWorkbook.Sheets
    If (Val(Sh.Name) < Day(Now)) Or (Val(Sh.Name) = Day(Now) And Hour(Now) > 15) Then Sh.Visible = False
Next
End Sub

При запуске скроются все листы с именами меньше текущего числа, а также Лист сегодняшнего числа, если время больше 15:00.

[frozzy_16]

Сегодняшний лист не должен скрываться.....
Он должен скрыться только на следующий день.

Пример.
Сегодня 18 марта. Этот лист должен скрыться 19 марта в 15:00.

[serikov]

Добавь к текущему дню +1, тому который после or

[Dophin]

автору надо что бы автоматом, то есть надо на Ontime вешать

[frozzy_16]

Спасибо попробую.... но я не силен в макросах....


Тема пока незакрыта....

[Maxx]

В модуле Эта книга разместите:

Private Sub Workbook_Open()
    Application.OnTime TimeValue("15:00:00"), "SheetsHide"
    Dim Sh As Object
    For Each Sh In ThisWorkbook.Sheets
        If Val(Sh.Name) < Day(Now) - 1 Then Sh.Visible = False
        If Val(Sh.Name) = Day(Now) - 1 And Hour(Now) > 15 Then Sh.Visible = False
    Next
End Sub

В любом модуле раззместите

Sub SheetsHide()
    Application.OnTime TimeValue("15:00:00"), "SheetsHide"
    Dim Sh As Object
    For Each Sh In ThisWorkbook.Sheets
        If Val(Sh.Name) = Day(Now) - 1 And Hour(Now) > 15 Then Sh.Visible = False
    Next
End Sub

Как работает:
1. Если открыли книгу после 15:00, то скроются все листы с именем < 18
2. Если время меньше, чем 15:00, то скроются все листы с именем < 17. Лист "17" будет виден, но в 15:00 он также скроется автоматически.