以下代码可以在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