Funkcia na vrátenie používateľského mena pomocou VBA v programe Microsoft Excel

Anonim

Nasledujúca funkcia vráti používateľské meno prihláseného používateľa, funguje v systéme Windows NT aj Windows95/98.

Verejná deklaračná funkcia 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

Ak nechcete vrátiť meno používateľa siete,
ale chcete vrátiť používateľské meno, ktoré si používateľ zaregistroval v aplikácii, môžete to urobiť:

ActiveUserName = Application.UserName