Страницы: 1
RSS
Отслеживание входа пользователей с условием
 
Всем привет!
Есть файл с  которым работают разные пользователи. Нужно отследить каждого пользователя работавшего с фалом. Я воспользовался данной ссылкой:https://www.planetaexcel.ru/techniques/5/196/, спасибо Николаю!
Все неплохо, но есть ещё один критерий, каждый пользователь вносит данные в определённый столбец и по этим данным я могу понять, что с файлом именно работали, а не просто открывали, соответственно необходима доработка, активации лога, только при условии активной ячейки.
Пример:
открыли файл, записали в строку 2 столбца F информацию, данные в лог записались, но только один раз, не нужно после каждой записи в столбец F повторять лог, так как записей много, но если открыли файл и не внесли в столбец F данные лог не срабатывает или активна была другая ячейка, не столбца F
Да и ещё уточнение, файл может быть открыт, но запись в столбец F  производиться не сразу, а спустя время.
Пытался через if поставить условие, так как первым условием будет не открытие книги а активация ячейки столбца F
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Static Loged As Boolean
If Not Intersect(Target, Range("F:F")) Is Nothing And Not Loged Then
   'ищем последнюю занятую строчку в логах
   lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
   'заносим имя пользователя и дату-время входа в файл
   Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")
   Worksheets("Лог").Cells(lastrow + 1, 2) = Now
   Loged = True
End If
End Sub
По вопросам из тем форума, личку не читаю.
 
БМВ, все работает, спасибо!
Страницы: 1
Наверх