2017-03-01 81 views
-1

我試圖創建一個Excel來跟蹤組織中的生產。我有一個包含用戶名(windows)的用戶列表。每當有人將新用戶名添加到列表中時,我想用公司的全局列表驗證用戶名。用VBA中的全局用戶列表驗證用戶名

+0

你需要提供更多的信息馬努。 Excel工作表中的Windows用戶名列表是什麼?你可以在Excel中訪問「公司的全球名單」嗎?你好嗎?它是查詢還是vba? – CLR

+0

我想比較用戶名和Windows網絡用戶名。例如,如果我想讓特定用戶訪問某個單元格/範圍,我們將獲得一個windows權限對話框,在該對話框中,我可以從網絡用戶列表中檢查添加新用戶。我想在對話框 –

+0

中檢查名稱功能我可能會誤解您的需求,但聽起來好像您想要一個提供所有Windows用戶名/詳細信息的用戶表單,並且您希望能夠選擇一個可以添加的用戶表單列表? – CLR

回答

1

我有一個簡單的功能相同

Function GetUserFullName(userName) As String 
    Set WSHnet = CreateObject("WScript.Network") 
    UserDomain = WSHnet.UserDomain 
    On Error GoTo Err_open_esy 
    Set objUser = GetObject("WinNT://" & UserDomain & "/" & userName & ",user") 
Exit_open_esy: 
    GetUserFullName = objUser.FullName 
Exit Function 

Err_open_esy: 
    GetUserFullName = "Error" 
End Function 

可以使用作爲

GetUserFullName("abc")