Özet
Geçerli kullanıcı adını almak için Microsoft Windows DLL (dinamik bağlantı kitaplığı) Windows API (uygulama programlama arabirimi) çağrı yapabilir. Geçerli kullanıcı adı ADVAPI32 GetUserNameA işlevi kullanılarak elde edilebilir. DLL.
Ek Bilgi
Microsoft Excel bilgisayarın geçerli kullanıcı adı erişmek için yerleşik bir işleve sahip değil. Ancak, Declare bildirimi bir Visual Basic for Applications makrosu geçerli kullanıcı adını döndürür bir Microsoft Windows işlevi çağırmak için kullanabilirsiniz. Microsoft Visual Basic for Applications yordamları örnekleri, zımni veya açık garanti vermez, ancak bunlarla sınırlı olmamak satılabilirlik ve/veya belirli bir amaca uygunluk zımni garantiler de dahil olmak üzere yalnızca gösterim amacıyla sağlar. Bu makaledeki Visual Basic yordamları 'olduğu gibi' sağlanır ve Microsoft tüm durumlarda kullanılabilir olduğunu garanti etmez. Microsoft destek uzmanları belirli bir makro işlevselliğinin açıklanmasına yardımcı olabilir, ancak ek işlevsellik sağlamak amacıyla bu örnekleri değiştirmezler veya, belirli gereksinimlerinizi karşılamak için makrolar oluşturmak yardımcı olur. Programlama deneyiminiz kısıtlıysa, bir Microsoft Çözüm Sağlayıcıları başvurun isteyebilirsiniz. Çözüm Sağlayıcıları özel makrolar oluşturma dahil olmak üzere Ücretli Hizmetleri geniş bir yelpazede sunar. Microsoft çözüm sağlayıcılar hakkında daha fazla bilgi için (800) 426-9400 adresindeki Microsoft Müşteri bilgi hizmetini arayın.
ÖRNEK
-
Yeni modüle aşağıdaki kodu yazın:
' Makes sure all variables are dimensioned in each subroutine. Option Explicit ' Access the GetUserNameA function in advapi32.dll and ' call the function GetUserName. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long ' Main routine to Dimension variables, retrieve user name ' and display answer. Sub Get_User_Name() ' Dimension variables Dim lpBuff As String * 25 Dim ret As Long, UserName As String ' Get the user name minus any trailing spaces found in the name. ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) ' Display the User Name MsgBox UserName End Sub
-
Get_User_Name makrosunu çalıştırın. Geçerli kullanıcı adı ileti kutusunda görünür.
