Por favor, os ruego que me hagais algún comentario sobre la duda que paso a
exponer.
Tengo la sensación de que se me ignora y no alcanzo a comprender el motivo
(de hecho llevo algún tiempo sin preguntar nada en este grupo por esta
razón); también sé que no tengo derecho a exigir nada, pero... no sé, casi
preferiría recibir un exabrupto antes que ver que "le escribo a la pared".
El caso es que intento progresar con la mencionada "seguridad" siguiendo los
consejos leídos en estas news y en páginas web que recomendais.
Creo que ya solo me falta un detalle, pero que no sé qué hago mal.
Cuando arranco la aplicación desde un acceso directo que referencia al grupo
de trabajo (y que está en un servidor junto con el "back-end"), llamo
mediante la macro autoexec, a un módulo de conexión que más o menos dice (he
resumido y cambiado cosas):
Function Conecta()
DBEngine.SystemDB = "\\Lisa\ensayos\ESSAY.MDW"
Set areaEnsayo = DBEngine.Workspaces(0)
Dim varPwd As String
varUsuario = areaEnsayo.UserName
If varUsuario = "Emilio" Then
varPwd = "emvies58"
ElseIf varUsuario = "Teresa" Then
varPwd = "CEIC"
End If
Set areaEnsayo = DBEngine.CreateWorkspace("", varUsuario, varPwd)
Set dbEnsayo =
areaEnsayo.OpenDatabase("\\Lisa\ensayos\ensayos_datos.mdb")
...
Hasta aquí todo me funcionaba bien, pero... se me ocurrió crear una
contraseña en el fichero de datos "ensayos_datos.mdb" y volver a vincular
las tablas.
Así lo hice, borré los vínculos a las tablas y volví a crearlos; me pidió
contraseña del "back-end" y cuando ya me las prometía felices, veo que el
módulo de conexión ya no es capaz de abrir los datos dando un error de
contraseña.
Le he estado dando muchas vueltas y no alcanzo a ver una solución para
"asegurar" ambos ficheros: el de datos (con contraseña) y el de programa
(con múltiples usuarios y contraseñas).
En fin, ¡espero no molestar a nadie! y gracias de todos modos.
Y si soy muy bruto por no atinar con la solución, ¡prefiero me lo digais!
Emilio(emiliov@ono.com)
Valencia
BUHO
====
Establece bien la cadena de conexion a la MDB de los datos protegida por
contraseña, contraseña incluida:
Set dbEnsayo=areaEnsayo.OpenDatabase("\\Lisa\ensayos\ensayos_datos.mdb",False,False,";PWD=tucontraseña")
No sé si esto solucionará tu problema, espero que sí.
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)