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

Вход

Регистрация

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

 

= Мир MS Excel/макрос при наступление даты, запросит пароль к книге - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос при наступление даты, запросит пароль к книге (Макросы/Sub)
макрос при наступление даты, запросит пароль к книге
Dersarius Дата: Вторник, 24.03.2015, 00:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Dersarius
Дата добавления - 24.03.2015 в 00:49
Manyasha Дата: Вторник, 24.03.2015, 07:43 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 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, здравствуйте. Можно так:[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]

Автор - Manyasha
Дата добавления - 24.03.2015 в 07:43
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
 
Ответить
СообщениеПасиб, уже близко
Работает только на определенную дату

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

Работает, спасиб
 
Ответить
СообщениеВсе разобрался =)))

Вместо
[vba]
Код
If Format(Date, "yyyy-mm-dd") = "2015-03-24" Then
[/vba]

Прописал
[vba]
Код
If Date > #3/25/2015# Then
[/vba]

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

Автор - Dersarius
Дата добавления - 24.03.2015 в 09:05
walkmanoff Дата: Понедельник, 12.03.2018, 15:48 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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


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

С уважением.
Роман
 
Ответить
Сообщение
Dersarius, здравствуйте. Можно так:


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

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

Автор - walkmanoff
Дата добавления - 12.03.2018 в 15:48
Pelena Дата: Понедельник, 12.03.2018, 19:09 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19158
Репутация: 4411 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеwalkmanoff, прочитайте Правила форума и создайте свою тему. Эта тема закрыта

Автор - Pelena
Дата добавления - 12.03.2018 в 19:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос при наступление даты, запросит пароль к книге (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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