VBA, чтобы добавить имя пользователя после создания строки

Question

В настоящее время у меня есть сценарий, в котором несколько пользователей вводят строки данных в таблицу Excel. Не существует общей настройки рабочей книги, поэтому только один пользователь будет открывать документ в любое время. Есть ли способ VBA, который я могу использовать для захвата имени пользователя, который в настоящее время открыт для документа, и вставлять его каждый раз, когда строка добавляется в таблицу? Тем самым давая автора для каждой строки.

Answer 1

вы можете добавить следующий код в код панели соответствующего листа

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Columns("A:N"), Target) Is Nothing Then Cells(Target.Row, "O").Value = Environ$("Username") 
End Sub 

конечно, вы можете точно настроить пункт If, который имеет имя пользователя, вставленное в столбец «O»

Answer 2

Следующий код будет захватывать имя пользователя:

Application.UserName 

Answer 3

я нахожу на моем рабочем компьютере, по крайней мере:

Environ$("Username"‌​) дает Администратор
Application.UserName дает IT

Теперь, я мог бы изменить мое Application.UserName на мое имя - достаточно легко сделать с небольшим количеством знаний, но я нахожу много офисных сотрудников не имеют, что мало знаний ....

Outlook, с другой рука часто устанавливается для конкретного пользователя, поэтому, когда Excel первый открывает и хранится в глобальной переменной:

Sub Test() 

    Dim olApp As Object 
    Set olApp = CreateObject("Outlook.Application") 

    MsgBox olApp.session.currentuser 

End Sub