Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim relProp As DAO.Property
Dim user As String
Dim groupName As String
Dim perm As DAO.Permission
'Obtener referencia a la base de datos
Set db = CurrentDb()
'Obtener referencia a la tabla MsysRelationShips
Set tdf = db.TableDefs("MsysRelationShips")
'Obtener referencia a la propiedad de permisos
Set relProp = tdf.CreateProperty("Jet OLEDB:Table Hidden In Access", dbByte, False)
'Asignar permisos al usuario o grupo especificado
user = "nombre_usuario"
groupName = "nombre_grupo"
perm = dbSecReadDef + dbSecWriteDef + dbSecDeleteDef 'permisos de lectura, escritura y eliminación
If user <> "" Then
relProp.Value = "0;#" & user & ";" & perm
ElseIf groupName <> "" Then
relProp.Value = "1;#" & groupName & ";" & perm
End If
tdf.Properties.Append relProp
'Refresh de la tabla
db.TableDefs.Refresh