Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

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

Автор Евгений Владимирович, 05.05.2014, 06:33

« назад - далее »

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

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

cheshiki1

#1
в модуль книги
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 , нужно дописывать проверку.

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

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

RAN

Цитата: Евгений Владимирович от 05.05.2014, 11:03
если добавить код в модуль книги (ЭтаКнига)
то все сработает, а вы добавили код в стандартный модуль

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

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