Λειτουργία για την επιστροφή του ονόματος χρήστη χρησιμοποιώντας VBA στο Microsoft Excel

Η παρακάτω συνάρτηση θα επιστρέψει το όνομα χρήστη για τον συνδεδεμένο χρήστη, λειτουργεί τόσο στα Windows NT όσο και στα Windows95/98.

Public Declare Function GetUserName Lib "advapi32.dll" _ Aliευδώνυμο "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnUserName () As String 'επιστρέφει το όνομα χρήστη τομέα NT 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 Σφάλμα GoTo 0 ReturnUserName = UCase (Trim (tString)) Λειτουργία τερματισμού

Εάν δεν θέλετε να επιστρέψετε το όνομα χρήστη του δικτύου,
αλλά θέλετε να επιστρέψετε το όνομα χρήστη που έχει καταχωρίσει ο χρήστης στην εφαρμογή, μπορείτε να το κάνετε αυτό: