如何用vba获取excel的用户名?

每个office软件都有一个用户名，如下图所示：

要用vba获取这个用户名可以使用Application对象的UserName属性，代码如下：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius
  '读取用户名
  MsgBox Excel.Application.UserName
  '修改用户名
  Excel.Application.UserName = "水星Excel"
End Sub

从上述代码可以看出用户名既可以读取，也可以直接用vba代码修改。