Geçerli Kullanıcı adını almak Için Visual Basic yordamı

Özet

Geçerli Kullanıcı adını almak için bir Microsoft Windows DLL (dinamik bağlantı kitaplığı) için bir Windows API (uygulama programlama arabirimi) çağrısı yapabilirsiniz. Geçerli Kullanıcı adı, ADVAPI32 'de GetUserNameA işlevi kullanılarak edinilebilir. 'Sini.

Ek Bilgi

Microsoft Excel 'in bilgisayarın geçerli kullanıcı adına erişim için yerleşik işlevselliği yoktur. Ancak, bir Visual Basic for Applications makrosuna, geçerli kullanıcı adını döndüren bir Microsoft Windows işlevini çağırmak için Declare deyimini kullanabilirsiniz. Microsoft, belirli bir amaca uygunluk ve/veya uygunluk dahil olmak üzere, satılabilirlik ve/veya formda olmamak kaydıyla sınırlı olmamak kaydıyla, yalnızca gösterim için Visual Basic for Applications yordamları örneklerini sağlar. Bu makaledeki Visual Basic yordamları ' olduğu gibi verilmiştir ve Microsoft bunların her durumda kullanılabileceğini garanti etmez. Microsoft destek uzmanları, belirli bir makronun işlevselliğinin açıklanmasına yardımcı olduğundan, bu örnekleri ek işlevler sağlayacak şekilde değiştirmezler ve belirli gereksinimlerinizi karşılayacak makrolar oluşturmanıza yardımcı olur. Programlama deneyiminiz sınırlıysa, Microsoft çözüm sağlayıcılarından birine danışmanız gerekebilir. Çözüm sağlayıcılar, özel makrolar oluşturmak dahil olmak üzere çeşitli ücret tabanlı hizmetler sunmaktadır. Microsoft çözüm sağlayıcıları hakkında daha fazla bilgi için, Microsoft Müşteri bilgileri hizmeti 'ni (800) 426-9400 adresinden arayın.

ÖRNEKTEKI

  1. Yeni bir 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
  2. Makro Get_User_Name. Geçerli Kullanıcı adının bir ileti kutusunda göründüğünü unutmayın.

Daha fazla yardıma mı ihtiyacınız var?

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Microsoft Insider 'a katılın

Bu bilgi yardımcı oldu mu?

Geri bildiriminiz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×