Открыть файл на закладке, соотвествующей дате месяца

[bozhenko]

Привет всем,
Гуглил, но толи не могу запрос лаконично сформулировать, толи я первый, кому это надо... Не нашёл.
Есть Excel файл, в нём отдельные вкладки на каждый день месяца от 1 до 31, и потом вкладка "Итого" - файл для отчёта персонала. Никак не могу приучить их смотреть, на какой вкладке файл открылся. Как бы заставить файл при открытии автоматически переходить на вкладку, которая соответствует данному числу?

(И если сталкивались, как включать/выключать защиту всем листам сразу, а то тридцать с гаком листов паролить/распароливать в случае какого либо изменения - это убивает...)

[IgorGO]

1
Private Sub Workbook_Open()
  Worksheets("" & Day(Now)).Activate
End Sub

2
Sub ProtectSheetsTogle()
  Const Pasw As String = "Secret"
  Dim sh As Worksheet
  For Each sh In Worksheets
    If sh.ProtectContents Then sh.Unprotect Pasw Else sh.Protect Pasw
  Next
End Sub

первую процедуру поместите в модуль книги

[bozhenko]

Про первую функцию - ясно. Спасибо! А вторая - она как будет вызываться? При каждом открытии будет меняться статус? Я правильно понял?

[IgorGO]

процедура меняет статус листа с защищенного на не защищенный при каждом срабатывании. а срабатывать должна, видимо, по пинку пользователя, а не расписанию или еще как... Alt+P, например - нормальная комбинация клавиш для этой процедуры...