Скрыть Листы, не активных месяцев

[valerij]

Сообщение от EducatedFool

только заглавными буквами: ЯНВАРЬ

А, вот в чем проблема, час поменяю все на заглавные

[kuklp]

Так, наверное:

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    Me.Worksheets(Format(Now, "MMMM")).Visible = True
    If Err <> 0 Then Me.Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = UCase(Format(Now, "MMMM"))
    For Each ws In Me.Worksheets
        ws.Visible = ws.Name = UCase(Format(Now, "MMMM"))
    Next
    Application.ScreenUpdating = True
End Sub

[valerij]

Сообщение от kuklp

Так, наверное

Так тоже работает, изменил все на заглавные и мс Игоря заработал.
Меня терзает смутные сомнения, что придется оставлять прошедший месяц, т. е. на улице ФЕВРАЛЬ, лист январь, будет скрыт, а захочется заглянуть, как там было в ЯНВАРЕ.
Как предусмотреть, такую возможность?

[kuklp]

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    Me.Worksheets(Format(Now, "MMMM")).Visible = True
    If Err <> 0 Then Me.Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = UCase(Format(Now, "MMMM"))
    For Each ws In Me.Worksheets
        ws.Visible = ws.Name = UCase(Format(Now, "MMMM")) _
        Or ws.Name = UCase(Format(DateSerial(Year(Now), Month(Now) - 1, 1), "MMMM"))
    Next
    Application.ScreenUpdating = True
End Sub

Если нет листа с названием текущего месяца, код Игоря выдаст ошибку. Я к его коду добавил проверку на наличие нужного листа(и при отсутствии такового - вставку). Он сработает даже если в книге нет листов с названиями месяцев. Попробуйте.

[valerij]

Сообщение от kuklp

Если нет листа с названием текущего месяца, код Игоря выдаст ошибку. Я к его коду добавил проверку на наличие нужного листа(и при отсутствии такового - вставку).

Все работает
ВСЕМ
С П А С И Б О !!!!!!

[kuklp]

Исправьте строку:
DateSerial(Year(Now), Month(Now) - 1, 1)

[valerij]

Сообщение от kuklp

Исправьте строку:
DateSerial(Year(Now), Month(Now) - 1, 1)

kuklp
А что там??

[kuklp]

В начальном варианте было:
DateSerial(Year(Now), Month(Now) - 1, Day(now))
В феврале 28 дней, а в марте 31. Не проверял, но может выдать 30 марта январь месяц или ошибку. А так:
DateSerial(Year(Now), Month(Now) - 1, 1) - точно не выдаст, выдаст февраль, независимо от текущего числа.

[R Dmitry]

лучше так Сергей
UCase(Format(DateAdd("m", -1, Date), "MMMM"))

[kuklp]

Дим, а лучше чем?:-)