макрос при наступление даты, запросит пароль к книге

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

макрос при наступление даты, запросит пароль к книге (Макросы/Sub)

Dersarius

Дата: Вторник, 24.03.2015, 00:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Ребят, подскажите Макрос который при наступление даты автоматом запросит пароль к книге (тот пароль который будет записан в макросе =)) например: ПРИВЕТ

Ответить

Manyasha

Дата: Вторник, 24.03.2015, 07:43 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Dersarius, здравствуйте. Можно так:[vba]

Код

Private Sub Workbook_Open()
     Windows("1.xlsm").Visible = False
     Application.DisplayAlerts = False
         If Format(Date, "yyyy-mm-dd") = "2015-03-24" Then
             resp = InputBox("Введите пароль")
             If resp <> "привет" Then ThisWorkbook.Close
         End If
     Windows("1.xlsm").Visible = True
     Application.DisplayAlerts = True
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Dersarius

Дата: Вторник, 24.03.2015, 08:49 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Пасиб, уже близко
Работает только на определенную дату

[vba]

Код

If Format(Date, "yyyy-mm-dd") = "2015-03-24" Then

[/vba]

Выставил 2015-03-23 ничего не происходит, как же сделать что бы доходил до определенной даты например до 2015-03-23, и если будет например 2015-03-24 и т.д. спрашивал пароль?

Сообщение отредактировал Dersarius - Вторник, 24.03.2015, 08:56

Ответить

Dersarius

Дата: Вторник, 24.03.2015, 09:05 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Все разобрался =)))

Вместо
[vba]

Код

If Format(Date, "yyyy-mm-dd") = "2015-03-24" Then

[/vba]

Прописал
[vba]

Код

If Date > #3/25/2015# Then

[/vba]

Работает, спасиб

Ответить

walkmanoff

Дата: Понедельник, 12.03.2018, 15:48 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Цитата Manyasha, 24.03.2015 в 07:43, в сообщении № 2 ()

Dersarius, здравствуйте. Можно так:

День добрый, Маняша.
Есть книга с листами (каждый лист - новая дата месяца, по порядку, начиная с 01-го числа). На каждом из листов дата прописана в формате ДД.ММ.ГГГГ.
Как можно прописать макрос, чтобы при последующем открытии файла паролились все листы, отличные от текущей даты (СЕГОДНЯ)?
Спасибо.

С уважением.
Роман

Ответить

Pelena

Дата: Понедельник, 12.03.2018, 19:09 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

Репутация: 4660 ±

Замечаний: ±

Excel 365 & Mac Excel

walkmanoff, прочитайте Правила форума и создайте свою тему. Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

макрос при наступление даты, запросит пароль к книге (Макросы/Sub)

Страница 1 из 1
1