Подскажите пожалуйста как идентифицировать пользователя вносящего изменения листа (кники exsel) и записать данные о пользователе в определенную ячейку того же листа. Существует база данных на листе exsel. все пользователи локальной сети имеют к файлу доступ и по необходимости вносят в него изменения. нужно фиксировать дату и имя пользователя сети, вносящего изменения, в ячейке на этом же листе.
Подскажите пожалуйста как идентифицировать пользователя вносящего изменения листа (кники exsel) и записать данные о пользователе в определенную ячейку того же листа. Существует база данных на листе exsel. все пользователи локальной сети имеют к файлу доступ и по необходимости вносят в него изменения. нужно фиксировать дату и имя пользователя сети, вносящего изменения, в ячейке на этом же листе.segkras
nilem, да как такового макроса то нет... ни как не могу придумать как в теле макроса записать чтобы при изменении определенной ячейки выполнялся макрос и в соседнюю ячейку записывалась информация : кто эту ячейку изменил.. Не... не Краснов Сергей
nilem, да как такового макроса то нет... ни как не могу придумать как в теле макроса записать чтобы при изменении определенной ячейки выполнялся макрос и в соседнюю ячейку записывалась информация : кто эту ячейку изменил.. Не... не Краснов Сергейsegkras
Sub DidCellsChange() Dim KeyCells As String KeyCells = "H13:FC13" If Not Application.Intersect(ActiveCell, Range(KeyCells)) _ Is Nothing Then KeyCellsChanged
End Sub
Sub KeyCellsChanged() Dim Cell As Object For Each Cell In Range("H13:FC13") If Cell > 0 Then Application.ScreenUpdating = False ActiveCell.Offset(-2, 0).Range("A1").Select ActiveCell.FormulaR1C1 = CreateObject("wscript.network").UserDomain ActiveCell.Offset(2, 0).Range("A1").Select
Else
End If Next Cell Application.ScreenUpdating = False End Sub
[/vba]
[admin]Оформляйте коды тегами! [/admin]
Зравствуйте. Вроде как что то получилось [vba]
Код
Sub DidCellsChange() Dim KeyCells As String KeyCells = "H13:FC13" If Not Application.Intersect(ActiveCell, Range(KeyCells)) _ Is Nothing Then KeyCellsChanged
End Sub
Sub KeyCellsChanged() Dim Cell As Object For Each Cell In Range("H13:FC13") If Cell > 0 Then Application.ScreenUpdating = False ActiveCell.Offset(-2, 0).Range("A1").Select ActiveCell.FormulaR1C1 = CreateObject("wscript.network").UserDomain ActiveCell.Offset(2, 0).Range("A1").Select
Else
End If Next Cell Application.ScreenUpdating = False End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
