, если вы не хотите создавать UDF в VBA , или вы не можете, это может быть альтернативой.
=Cell("Filename",A1)
это даст вам полное имя файла, и из этого вы можете получить имя пользователя с чем-то вроде этого:
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
Эта формула запускается только из книги, сохраненной ранее.
Вы должны начать с четвертой позиции из-за первой косой черты с диска.