2017-03-01 41 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")