В соответствии с инструкциями по приведенной ниже ссылке выполните следующие действия.
В VBA вставьте новый модуль и вставьте этот код:
Public Function UserName()
UserName = Environ$("UserName")
End Function
Вызвать функцию, используя формула:
=Username()
Основываясь на инструкциях по адресу: