Узнать под чьей учеткой вненены изменения в файл

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Узнать под чьей учеткой вненены изменения в файл (Формулы/Formulas)

NeWru

Дата: Среда, 29.10.2025, 17:55 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 64

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

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

Excel 2013

Возникла необходимость вычислять рукожопов, которые входят под своей учеткой и вносят изменения в файл. Я не админ, файл мой (таблицы, формулы и тп), пользователей около 20чел. Было бы удобно иметь сведения, которые отображаются на любом листе в этом файле после любого сохранения. Интересна именно учетная запись, можно дату и время. Про учет внесения изменений (журнал на отдельном листе) читал, одно из необходимых условий в журнале не увидел, а именно изменение цвета шрифта. Значения в файле 4 цветов шрифта

Сообщение отредактировал NeWru - Среда, 29.10.2025, 19:16

Ответить

cmivadwot

Дата: Среда, 29.10.2025, 23:09 | Сообщение № 2

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

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

Сообщений: 606

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

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

365

NeWru, Вариант.. но как то корявенько работает.

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

Ответить

Nic70y

Дата: Четверг, 30.10.2025, 08:54 | Сообщение № 3

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

Ранг: Экселист

Сообщений: 9184

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

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

Excel 2010

NeWru, возможно Вам подойдет
[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("u")
        aa = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
        .Cells(1, aa) = Application.UserName
        .Cells(2, aa) = Now
        Sheets(1).Range("a1:a1000").Copy
        With .Cells(3, aa)
            .PasteSpecial Paste:=xlPasteAllUsingSourceTheme
            .PasteSpecial Paste:=xlPasteValues
        End With
    End With
    Application.CutCopyMode = False
End Sub

[/vba]но это не точно)

сохраняйте файл, см. лист u

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

ЮMoney 41001841029809

Ответить

Alex_ST

Дата: Четверг, 30.10.2025, 09:57 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 3220

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

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

2003

ИМХО, лучше использовать не имя пользователя Офиса Application.UserName, т.к. его при установке часто ставят от балды и вполне может повторяться в рамках одной сетки, а имя компьютера в сети CreateObject("Wscript.Network").UserName, т.к. оно уникально.
Давно у меня валяется в копилке файлик выводящий в окно Debug оба этих имени.
[vba]

Код

Private Sub Net_UserName()
Debug.Print CreateObject("Wscript.Network").UserName
Debug.Print Application.UserName
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Узнать под чьей учеткой вненены изменения в файл (Формулы/Formulas)

Страница 1 из 1
1