VBA如何获取计算机名？

Question

以下代码可以在sheet1里记录打开工作簿的时间、保存时间和关闭工作簿的时间，现在我还想在A列记录下打开工作簿的人所用的计算机名称该怎么写这代码？也就是电脑登录名称。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("sheet1").Range("D65535").End(xlUp).Offset(1, 0) = Now
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("sheet1").Range("C65535").End(xlUp).Offset(1, 0) = Now
End Sub
Private Sub Workbook_Open()
Sheets("sheet1").Range("B65535").End(xlUp).Offset(1, 0) = Now
End Sub

Answer 1

计算机名称是 Environ("computername")
登录用户名是 Environ("username")追问

不会写代码，可以帮忙写个完整的吗？

追答

怎么可能不会写代码，你的问题中不是已经写了那么多代码了吗？