Microsoft Excel'de VBA kullanarak kullanıcı adını döndürme işlevi

Anonim

Aşağıdaki işlev, oturum açmış kullanıcının kullanıcı adını döndürür, hem Windows NT hem de Windows95/98'de çalışır.

Public Bildiri Fonksiyonu GetUserName Lib "advapi32.dll" _ Alias ​​"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Fonksiyonu ReturnUserName() As String ', NT Etki Alanı Kullanıcı Adı Dim rString As String * 255, sLen As Long , tString As String tString = "" Hatada Devam Et Sonraki sLen = GetUserName(rString, 255) sLen = InStr(1, rString, Chr(0)) sLen > 0 ise tString = Left(rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase(Trim(tString)) End Function

Ağ kullanıcı adını döndürmek istemiyorsanız,
ancak kullanıcının uygulamaya kaydettiği kullanıcı adını döndürmek istiyorsanız bunu yapabilirsiniz:

ActiveUserName = Uygulama.KullanıcıAdı