Ringkasan
Anda dapat melakukan panggilan API Windows (antarmuka pemrograman aplikasi) untuk Microsoft Windows DLL (dynamic-link library) untuk mendapatkan nama pengguna yang saat ini. Nama pengguna yang saat ini dapat diperoleh dengan menggunakan fungsi GetUserNameA di ADVAPI32. DLL.
Informasi Selengkapnya
Microsoft Excel tidak memiliki fungsi internal untuk mengakses komputer nama pengguna saat ini. Namun, Anda dapat menggunakan pernyataan Declare dalam Visual Basic untuk aplikasi makro untuk memanggil fungsi Microsoft Windows yang akan mengembalikan nama pengguna saat ini. Microsoft memberikan contoh dari Visual Basic untuk prosedur aplikasi hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada jaminan tersirat dan dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Visual Basic prosedur dalam artikel ini disediakan 'sebagai' dan Microsoft tidak menjamin bahwa mereka dapat digunakan di semua situasi. Sementara profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas makro tertentu, mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas yang ditambahkan tidak akan mereka membantu Anda membangun makro untuk memenuhi kebutuhan spesifik Anda. Jika Anda memiliki pengalaman pemrograman yang terbatas, Anda mungkin ingin berkonsultasi dengan salah satu dari penyedia solusi Microsoft. Penyedia solusi menawarkan berbagai macam layanan berbiaya, termasuk membuat makro kustom. Untuk informasi selengkapnya tentang penyedia solusi Microsoft, hubungi layanan pelanggan Microsoft informasi di (800) 426-9400.
CONTOH
-
Ketik kode berikut dalam modul baru:
' 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
-
Menjalankan makro Get_User_Name. Perhatikan bahwa nama pengguna yang saat ini akan ditampilkan di kotak pesan.