Попытка вытащить Windows loginID для пользователя, когда они открывают книгу

Question

Я хочу, чтобы пользователи Windows входили в ячейку A3 листа 1 в данной книге при открытии файла.

Использование

Private Sub Workbook_Open () UserName = Environ $ ("UserName") End Sub

Кажется, что работает в модуле, но когда файл был отправлен другому пользователюID не изменился.После попытки добавить код в объект «ThisWoorkbook» возвращается #NAME?ошибка, когда = имя пользователя () введено в ячейку A3 на листе 1.

У меня практически нет опыта работы с VBA, и я только начинаю, поэтому любая помощь, которую вы мне можете оказать, будет чрезвычайно полезна.Спасибо!

Answer 1

Либо используйте функцию для установки значения ячейки, например, в модуле ThisWorkbook:

Private Sub Workbook_Open()
    Sheet1.Cells(3, 1).Value = Environ$("UserName")
End Sub

ИЛИ

Если вы хотите, чтобы UDF размещался где угодноесли вы хотите, то вы пишете функцию в модуле кода NORMAL, например:

Public Function GetUserName() As String
    GetUserName = Environ$("UserName")
End Function

и вызываете ее на листе как: =GetUserName()