这是引用什么类型库：？？Set ObjectAccessControl = CreateObject("SecurityMgr.AccessControl")

Question

Set ObjectAccessControl = CreateObject("SecurityMgr.AccessControl")不明白啊， 请知情者告之，谢谢

Answer 1

这个应该是自己做的类吧.
SecurityMgr.AccessControl

Answer 2

Private Sub Command1_Click()
Dim ObjectAccessControl As Object
Dim sUserName As String
Dim lreqFunction As Long
Dim bSuccess As BooleanSet ObjectAccessControl = CreateObject("SecurityMgr.AccessControl")sUserName = "AnyUserName"lreqFunction = 3bSuccess = ObjectAccessControl.isUserAllowed(sUserName, lreqFunction)If bSuccess Then
  MsgBox "use is Allowed access", vbInformation, "Access Check"Else
  MsgBox "use is denied access", vbCritical, "access check"
End IfSet ObjectAccessControl = NothingEnd Sub