Hàm trả về tên người dùng bằng VBA trong Microsoft Excel
Hàm bên dưới sẽ trả về tên người dùng cho người dùng đã đăng nhập, hoạt động trên cả Windows NT và Windows95 / 98.
Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnUserName() As String ' returns the NT Domain User Name Dim rString As String * 255, sLen As Long, tString As String tString = "" On Error Resume Next sLen = GetUserName(rString, 255) sLen = InStr(1, rString, Chr(0)) If sLen > 0 Then tString = Left(rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase(Trim(tString)) End Function
Nếu bạn không muốn trả lại tên người dùng mạng, nhưng muốn trả lại tên người dùng mà người dùng đã đăng ký với ứng dụng, bạn có thể làm như sau:
ActiveUserName = Application.UserName