В данном примере программистам представляется разрешение на полный доступ на каждый модуль в базе данных, а все остальные пользователи получают разрешение только на чтение модулей:

Sub SetModulePermissions()
	Dim dbs As Database, wsp As Workspace, ctr As Container
	Dim grp As Group

	' Возвращает ссылку на используемую по умолчанию рабочую область.'
	Set wsp = DBEngine.Workspaces( 0 )
	' Возвращает ссылку на текущую базу данных.'
	Set dbs = CurrentDb
	' Возвращает ссылку на семейство Modules.'
	Set ctr = dbs.Containers!Modules
	wsp.Groups.Refresh
	For Each grp In wsp.Groups
		ctr.UserName = grp.Name
		If ctr.UserName =  "Программисты"  Then
                                      ctr.Permissions = ctr.Permissions Or dbSecFullAccess
		Else
			ctr.Permissions = ctr.Permissions Or acSecModReadDef
		End If
	Next grp
	Set dbs = Nothing
End Sub