Пароль по времени

[Евгений Владимирович]

Как можно автоматически поставить пароль по истечению срока на лист excel? Например файл используется 2 недели, когда 2 недели проходят-при запуске файла появляется сообщение " ...  .. ... для продолжения использования файла введите пароль: " Или по дате, при запуске файла, после определенной даты - сообщение " ...  .. ... для продолжения использования файла введите пароль: "

[cheshiki1]

в модуль книги

Код Выделить Развернуть

Private Sub Workbook_Open()
Dim i&, n&, P As Variant
Application.ScreenUpdating = False
n = 2
If Date = "05.05.2014" Then
For i = 1 To Sheets.Count
    Sheets(i).Activate
    Sheets(i).Protect "1234"
Next
End If
1:
P = InputBox("Время использования книги истекло, для продолжения введите пароль", "ВВОД ПАРОЛЯ")
If P = 1234 Then
For i = 1 To Sheets.Count
    Sheets(i).Activate
    Sheets(i).Unprotect "1234"
Next
Else
  If n = 0 Then
  Application.DisplayAlerts = False
  ThisWorkbook.Close
  Application.DisplayAlerts = True
  Else
  MsgBox "Пароль не верный, у вас еще " & n & " попытки"
  n = n - 1
  End If
  GoTo 1
End If
Application.ScreenUpdating = True
End Sub
пароль 1234 ставиться на все листы книги. после 3 не правильных попыток книга закрывается.
паралельно читаем это
П.С. не учтено если книга будет открыта после 05.05.2014 , нужно дописывать проверку.

[Евгений Владимирович]

спасибо
P.S. если добавить код в модуль книги, закрыть книгу, при открытии её сегодня должна появляться табличка? если да, то не получается почему то) реакции никакой, я что то не правильно сделал?

[RAN]

если добавить код в модуль книги (ЭтаКнига)

то все сработает, а вы добавили код в стандартный модуль

[Евгений Владимирович]

и правда, все работает) Спасибо большое