Пароль в EXCEL по истечению суток

[yevgen]

Как сделать чтобы книга Excel в рабочий день (скажем сегодня) открывалась без проблем, а в определённый день (скажем завтра) при запуске потребовала ввод пароля?
Пробовал это:
Private Sub Workbook_Open()
If Date > f1 Then
ActiveWorkbook.Password = "123"
End If
End Sub

f1 ячейка с датой, "123" пароль.

Не работает! т.е. требует пароль при каждом открытии.

Помогите разобраться с Автоматическим включением пароля по указанной дате!

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

[pivas]

Пароль на книгу надо ставить перед закрытием. Примерно так:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Password = ""
If Date > Range("F1") Then ActiveWorkbook.Password = "123"
End Sub

[IgorGO]

если процедура выглядит так, как написано, то f1 в данном случае не ячейка, а необьявленная переменная, которая равна 0, соответсвенно условие Date > f1 выполняется всегда, и файлу тут же присваивается пароль. Как обратиться к ячейке f1 - написано у pivasа.

[yevgen]

Спасибо. Всё верно. Работает! Но только в том случае, если дата вводится вручную. При применении f1 =ТДАТА или =СЕГОДНЯ() автоматически, при сохранении, меняется дата и ничего не происходит. Интересно - есть ли решение для такого наворота?

[EducatedFool]

При применении f1 =ТДАТА или =СЕГОДНЯ() автоматически, при сохранении, меняется дата и ничего не происходит

А чего ты хочешь добиться?
Чтобы в ячейке была именно такая формула, но значение ячейки не пересчитывалось?
Зачем же тогда формула? Один-то раз можно и вручную внести дату в ячейку...

[yevgen]

Всё, проехали! Это из-за лени! Работает как положено с подачи pivasa. Ещё раз спасибо!