打开工作簿时自动运行宏？

不确定你想要实现什么,但这可能呢？

Private Sub Workbook_Open()
    Sheet1.Range("A1").value=GetUserName
End Sub
Function GetUserName()
    GetUserName = Application.username
End Function