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

[valerij]

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

Private Sub Workbook_Open()
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
'************************** Переключиться на Лист, текущего месяца *****************************
             On Error Resume Next
  Sheets(MonthRus(Month(Now))).Select
  If Err.Number > 0 Then
    Err.Clear
    Sheets(MonthRus(Month(Now) - 1)).Select
    If Err.Number > 0 Then ShN = Sheets.Count Else ShN = _
            Sheets(MonthRus(Month(Now) - 1)).Index
    Sheets.Add After:=Sheets(ShN)
    Sheets(ShN + 1).Name = MonthRus(Month(Now))
  End If
'************************************************************************************************
            .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub
Function MonthRus(m) As String
    Select Case m
        Case 1:  MonthRus = "ЯНВАРЬ"
        Case 2:  MonthRus = "ФЕВРАЛЬ"
        Case 3:  MonthRus = "МАРТ"
        Case 4:  MonthRus = "АПРЕЛЬ"
        Case 5:  MonthRus = "МАЙ"
        Case 6:  MonthRus = "ИЮНЬ"
        Case 7:  MonthRus = "ИЮЛЬ"
        Case 8:  MonthRus = "АВГУСТ"
        Case 9:  MonthRus = "СЕНТЯБРЬ"
        Case 10: MonthRus = "ОКТЯБРЬ"
        Case 11: MonthRus = "НОЯБРЬ"
        Case 12: MonthRus = "ДЕКАБРЬ"
    End Select
End Function

[EducatedFool]

Валера, а что такое - "неактивный месяц"?

К примеру, январь - активный? А март? А ноябрь? Почему?

[kuklp]

    Sheets(ShN + 1).Name = MonthRus(Month(Now))
  End If
'***************************************
For Each ws In Me.Worksheets
If ws.Name <> MonthRus(Month(Now)) Then
ws.Visible = 0 'ну или 2(очень скрытый)
Next

И далее по тексту

[valerij]

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

    Sheets(ShN + 1).Name = MonthRus(Month(Now))
  End If
'***************************************
For Each ws In Me.Worksheets
If ws.Name <> MonthRus(Month(Now)) Then
ws.Visible = 0 'ну или 2(очень скрытый)
Next

И далее по тексту

kuklp!
Ошибка, исправил, но листы скрывает, но не те, оставляет Декабрь и при последующих запусках, ставит Лист1, Лист2 .....

Sheets(ShN + 1).Name = MonthRus(Month(Now))
End If
'***************************************
    For Each ws In Me.Worksheets
If ws.Name <> MonthRus(Month(Now)) Then
    ws.Visible = 0 'ну или 2(очень скрытый)
End If
    Next

Игорь, другие меня понимают, а ты, нет, какой сегодня месяц, активный или не активный?

[kuklp]

У меня скрывает, запустил в новой книге создало Январь, а три других скрыло:
Private Sub Workbook_Open()
With Application
.ScreenUpdating = False
.EnableEvents = False
'************************** Переключиться на Лист, текущего месяца *****************************
On Error Resume Next
Sheets(MonthRus(Month(Now))).Select
If Err.Number > 0 Then
Err.Clear
Sheets(MonthRus(Month(Now) - 1)).Select
If Err.Number > 0 Then ShN = Sheets.Count Else ShN = _
Sheets(MonthRus(Month(Now) - 1)).Index
Sheets.Add After:=Sheets(ShN)
Sheets(ShN + 1).Name = MonthRus(Month(Now))
End If
For Each ws In Me.Worksheets
If ws.Name <> MonthRus(Month(Now)) Then
ws.Visible = 0 'ну или 2(очень скрытый)
End If
Next
'********************************** *********************************** ***************************
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Только я бы сначала делал Все листы видимыми, а потом уж скрывал ненужные. Иначе будут ошибки.

[valerij]

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

Только я бы сначала делал Все листы видимыми, а потом уж скрывал ненужные. Иначе будут ошибки.

Да, ошибки, сделал так, может мона проще??

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Макрос2
    Me.Worksheets(MonthName(Month(Date))).Select
    Application.ScreenUpdating = True
        For Each ws In Me.Worksheets
If ws.Name <> MonthName(Month(Date)) Then
    ws.Visible = 0 'ну или 2(очень скрытый)
End If
       Next
End Sub

Макрос2

Sub Макрос2()
    Sheets("Январь").Visible = True
    Sheets("Февраль").Visible = True
    Sheets("Март").Visible = True
    Sheets("Апрель").Visible = True
    Sheets("Май").Visible = True
    Sheets("Июнь").Visible = True
    Sheets("Июль").Visible = True
    Sheets("Август").Visible = True
    Sheets("Сентябрь").Visible = True
    Sheets("Октябрь").Visible = True
    Sheets("Ноябрь").Visible = True
    Sheets("Декабрь").Visible = True
End Sub

[EducatedFool]

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Me.Worksheets(Format(Now, "MMMM")).Visible = True
    For Each ws In Me.Worksheets
        ws.Visible = ws.Name = UCase(Format(Now, "MMMM"))
    Next
End Sub

[valerij]

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

ws.Visible = ws.Name = UCase(Format(Now, "MMMM"))

Здесь ошибка, что такое "MMMM"

[EducatedFool]

Format(Now, "MMMM") - возвращает название текущего месяца: Январь
UCase(Format(Now, "MMMM")) - то же название, только заглавными буквами: ЯНВАРЬ

По крайней мере, на моём компе (где установлен русский Office)

[kuklp]

Пока за хлебом сходил... Игорь, там у Валерия есть еще добавление листа с текущим месяцем(если таковой отсутствует)