EBDN - Community - Question & Answers

  Monday, 23 October 2023
  2 Replies
  1.3K Visits
0
Votes
Undo
Hello all,

I try to Get the AccessControlUsers of Drawing that I distributed ,but I always get all users of the Project ,Is that the bug or I did not get the right way ? below is my code:

Public Sub run3()


Dim aa As Drawing



Set aa = Application.Selection(1)
Dim bb As AccessControlUser
Dim str As String
str = ""
For Each bb In aa.AccessPermissions
str = str & "|" & bb.Name
Next bb
MsgBox str
End Sub

001png.png 002.png