Макрос на вывод пароля по дате

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на вывод пароля по дате (Макросы/Sub)

Bodrichkom

Дата: Понедельник, 30.12.2019, 11:53 | Сообщение № 1

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

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

Сообщений: 34

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

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

Excel 2016

Добрый день!
Хотелось бы сделать автоматически запускаемый макрос при открытии файла с запросом пароля по интервалу дат, например с 01.01.2020 года по 29.02.2020 года пароль "123", с 01.03.2020 по 30.04.2020 пароль "456".
С выводом окна с надписью введите пароль и ответа на верный ввод и не верный, при неверном вводе ответ с кнопкой "ок" и выход из файла.\

Нашел вот такой на просторах интернета:

[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]

Но он выполняет не все действия по условию.