Редактирование файла по времени

Дата: Вторник, 29.09.2015, 15:40 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Доброго всем дня!
Суть вопроса в следующем: есть файл. Необходим макрос чтобы изменения в файл можно было вносить только после 15:00. В противном случае он запрашивал пароль на возможность редакции. Время настроено у всех одно и тоже. Макросы запускаются без проверки! Есль ли возможность решить данную задачу?

Всем удачного дня!

Дата: Вторник, 29.09.2015, 15:57 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

VIDEO56, здравствуйте.

Как Вам такой вариант? Этот кусок кода можно вставить в начало работы программы. После 0:00 работает без пароля.

[vba]

Код

Sub RioTest()
     ' Нам потребуется константа и переменная
     Const Password As String = "QWERTY" ' Системный пароль
     Dim UserPass As String ' Для проверки, что вводит пользователь
     ' Код для проверки времени и пароля
     If Time > "15:00" Then
         UserPass = InputBox("После 15:00 для использования файла необходимо ввести пароль.", "Введите пароль")
         If UserPass <> Password Then
             MsgBox "Пароль неверен, программа остановлена"
             Exit Sub
         End If
     End If
     ' Будет выполнено до 15:00 по определению, после 15:00 только при вводе пароля
     MsgBox "Макрос выполнен"
End Sub

[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Udik

Дата: Вторник, 29.09.2015, 16:34 | Сообщение № 3

Группа: Друзья

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

Сообщений: 1588

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

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

Excel 2016 х 64

Хы, достаточно системные часики подкрутить

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Дата: Вторник, 29.09.2015, 17:58 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Udik, системные часики подкрутить низя. Только под правами админа

Всем удачного дня!

Дата: Вторник, 29.09.2015, 18:05 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Rioran, для полной функциональности нужно UserForm создать?

Всем удачного дня!

Дата: Вторник, 29.09.2015, 18:09 | Сообщение № 6

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

VIDEO56, UserForm здесь уже будет делом вкуса. Я показал Вам принцип, с юзер-формой всё будет очень похоже.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Дата: Вторник, 29.09.2015, 18:15 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Все. Похоже я уже не соображаю! Что-то не запускается у меня ничего.

К сообщению приложен файл: Ntcn.xlsm (14.1 Kb)

Всем удачного дня!

Сообщение отредактировал VIDEO56 - Вторник, 29.09.2015, 18:15

Дата: Вторник, 29.09.2015, 18:23 | Сообщение № 8

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

Во вложении с кнопкой.

К сообщению приложен файл: Ntcn2.xlsm (18.7 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Дата: Вторник, 29.09.2015, 18:25 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Rioran, а как сделать чтобы при открытии файла макрос запускался?
А при введении неверного пароля файл закрывался!

Всем удачного дня!

Сообщение отредактировал VIDEO56 - Вторник, 29.09.2015, 18:31

Дата: Среда, 30.09.2015, 10:21 | Сообщение № 10

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

VIDEO56, для этого можно поставить выполнение макроса на открытие книги и, при некорректном пароле, закрывать книгу без сохранения. Пример во вложении в модуле книги дополнил.

К сообщению приложен файл: Ntcn3.xlsm (19.3 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Дата: Среда, 30.09.2015, 11:17 | Сообщение № 11

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Rioran, Огромное спасибо. То что нужно. Выручили очень сильно!

Всем удачного дня!