El Hilo de las News le inició Victor Delgadillo:

Tenemos una aplicacion cuya fuente de datos tiene proteccion de password.
Ademas creo esta ligada a un mdw.
El caso es que deseo vincular una tabla de esa database a un desarrollo que
hago (aun no tiene seguridad instalado). Si abro la database con password me
permite exportar la tabla. Pero lo que deseo es vincularla a la nueva
database. Cuando trato de hacerlo me pide el password del database. Se lo
doy. Luego me dice que no tengo derechos de leer la database. Creo es la
falta de usar el mdw, pero he probado con \path\archivo.mdb /WRKGRP
\path\archivo.mdw /usr "usuario" /pwd "password"
y tampoco me deja hacer la vinculacion...

Alguna idea como hacerlo? Ya que copiando la tabla no se actualizaria... y
deseo tener datos actualizdos.


Responde el Búho que no anda muy puesto en esto de la seguridad por usuarios
y grupos de Trabajo:
RESPONDE BUHO
=============

Victor...he estado dando vueltas a lo que planteas y la verdad que no lo
tengo muy claro.
He conseguido hacer lo siguiente:
 Dim EstaMDB As Database, TdfCurrent As TableDef
 Set EstaMDB = CurrentDb
 Set TdfCurrent = EstaMDB.CreateTableDef("Recibos")
 TdfCurrent.SourceTableName = "Recibos"
 TdfCurrent.Connect = ";DATABASE=C:\TWPAC\DATOS.MDB;UID=;PWD=;"
 EstaMDB.TableDefs.Append TdfCurrent

'DATABASE=basededatos;
'UID=usuario;
'PWD=contraseña;

Es decir.
Yo estoy ejecutando este codigo desde 'EstaMDB'
Deseo linkar a esta base de datos, la tabla 'Recibos' que pertenece a la
base de datos situada en la ruta: C:\TWPAC\DATOS.MDB
Datos.Mdb es la que tiene las dos protecciones.
Yo no he hecho pruebas, pero supongo que si en UID pones Usuario y en PWD la
contraseña del grupo de trabajo, te dejará linkarla.


....................

Victor responde que lo ha solucionado manualmente y el Buho insiste que esto
sería muy bonito hacerlo mediante código.

Ante lo cual, Enrique Martín (SoftJaen) da su respuesta:

RESPUESTA DE ENRIQUE MARTINEZ
=============================

Si el usuario está incluido en el archivo de información de grupos de
trabajo, podrá acceder sin problemas a la base de datos.

Si utilizamos ADO, el código siguiente sirve para saber si un usuario está
incluido en el archivo de información de grupos de trabajo, por lo que hay
que incluir en la cadena de conexión la ruta del archivo «System.mdw»,
normalmente en el directorio SYSTEM o SYSTEM32. La cadena de conexión
quedaría de la siguiente forma:

 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=base.mdb;" & _
                               "Jet OLEDB:System database=RUTA_ARCHIVO.MDW;" & _
                               "User ID=Nombre_Usuario_Archivo_MDW;" & _
       "Password=Contraseña_Usuario_Archivo_MDW"




y sigue comentando....


No sé si el siguiente código resuelve tu duda, pero si hablamos de archivo
de información de grupo de trabajo, debes de crear un espacio de trabajo que
compruebe si el usuario pertenece a dicho grupo:

    Dim wks As Workspace
    Dim db As Database
    Dim td As TableDef

    ' Indicamos el archivo de información de grupos de trabajo
    DBEngine.SystemDB = "C:\Windows\System\System.mdw"

    ' Creo un nuevo espacio de trabajo
    Set wks = DBEngine.CreateWorkspace("MainWS", "Buho", "ClaveBuho",dbUseJet)

    ' Abro una base de datos
    Set db = wks.OpenDatabase("C:\bd4.mdb")

    ' Vinculo la tabla
    Set td = db.CreateTableDef("Tabla vinculada")

    ' Información de la conexión
    td.SourceTableName = "Socios"
    td.Connect = ";DATABASE=C:\Bd1.mdb;PWD=xxxx;"

    ' Añado la tabla a la colección TableDefs
    db.TableDefs.Append td