Sub Postopen(Source As Notesuidocument)
	
	Dim workspace As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim db As notesdatabase
	Set db = session.currentdatabase
	source.EditMode = True
	Dim doc As notesdocument
	Set doc = source.document
	Dim ACL As NotesACL
	Set ACL = db.ACL
	doc.CurrentRoles = ACL.Roles
	
End Sub