tengo un archivo con contraseña para abrir, que no es compartido en red, pero es accesible desde ella. La cosa es que el archivo debe ser usado por un usuario al mismo tiempo que debe usarse para actualizar otro archivo con el que tiene vínculos. Para hacer esto uso el código de abajo, que como pueden ver, se activa al abrir el archivo cuyos vinculos debo actualizar. Este código funciona perfectamente mientras el archivo no está abierto por otro usuario, pero cuando otro usuario lo tiene abierto me pide contraseña, como si en la línea de código no estuviera escrita ya.
Todas las macros funcionan perfectamente, y repito que el archivo no está configurado como compartido en la red, precisamente para que funcionen las macros. Adicional mente noten que no estoy guardando el archivo para no perturbar el trabajo del otro usuario. Tambien traté de abrirlo como solo lectura (readonly=true) pero entonces me sale error en el código.
Alguien sabe esto porqué ocurre y cómo lo corrijo?
Private Sub Workbook_Open()
file1 = "Z:\4.GESTION LABORATORIO\0. LABORATORIO DE ENSAYOS 2016\RECEPCION Y PROGRAMACIÓN\Ingreso_recepcion.xlsm"
Buenos días a todos.
tengo un archivo con contraseña para abrir, que no es compartido en red, pero es accesible desde ella. La cosa es que el archivo debe ser usado por un usuario al mismo tiempo que debe usarse para actualizar otro archivo con el que tiene vínculos. Para hacer esto uso el código de abajo, que como pueden ver, se activa al abrir el archivo cuyos vinculos debo actualizar. Este código funciona perfectamente mientras el archivo no está abierto por otro usuario, pero cuando otro usuario lo tiene abierto me pide contraseña, como si en la línea de código no estuviera escrita ya.
Todas las macros funcionan perfectamente, y repito que el archivo no está configurado como compartido en la red, precisamente para que funcionen las macros. Adicional mente noten que no estoy guardando el archivo para no perturbar el trabajo del otro usuario. Tambien traté de abrirlo como solo lectura (readonly=true) pero entonces me sale error en el código.
Alguien sabe esto porqué ocurre y cómo lo corrijo?
Private Sub Workbook_Open()
file1 = "Z:\4.GESTION LABORATORIO\0. LABORATORIO DE ENSAYOS 2016\RECEPCION Y PROGRAMACIÓN\Ingreso_recepcion.xlsm"
Workbooks.Open (file1), UpdateLinks:="3", Password:="password"
Workbooks("Ingreso_recepcion.xlsm").Close False
End Sub