Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос на вывод пароля по дате - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на вывод пароля по дате (Макросы/Sub)
Макрос на вывод пароля по дате
Bodrichkom Дата: Понедельник, 30.12.2019, 11:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 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]

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


Сообщение отредактировал Bodrichkom - Понедельник, 30.12.2019, 16:44
 
Ответить
СообщениеДобрый день!
Хотелось бы сделать автоматически запускаемый макрос при открытии файла с запросом пароля по интервалу дат, например с 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]

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

Автор - Bodrichkom
Дата добавления - 30.12.2019 в 11:53
Pelena Дата: Понедельник, 30.12.2019, 12:44 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 15032
Репутация: 3284 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Bodrichkom, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеBodrichkom, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 30.12.2019 в 12:44
Bodrichkom Дата: Понедельник, 30.12.2019, 16:07 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Сделал.
 
Ответить
СообщениеPelena, Сделал.

Автор - Bodrichkom
Дата добавления - 30.12.2019 в 16:07
RAN Дата: Понедельник, 30.12.2019, 18:45 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5233
Репутация: 1049 ±
Замечаний: 0% ±

2010
Для того, чтобы открыть книгу с новым паролем, сначала нужно сменить пароль.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДля того, чтобы открыть книгу с новым паролем, сначала нужно сменить пароль.

Автор - RAN
Дата добавления - 30.12.2019 в 18:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на вывод пароля по дате (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!