Problema con ReadOnly - Macros
Publicado por Sergio (1 intervención) el 24/01/2013 16:41:00
Buenas, les hago una consulta;
Tengo dos archivos de excel "A.xlsm" y "B.xlsm". El archivo A tiene una macro que al momento de cerrar el archivo, sale un mensaje y pregunta: "Desea copiar la info al archivo B?" si le doy en "Si", se abre el archivo B y comienza a copiar los valores a traves de la macro, cuando termina informa con otro mensaje y luego de aceptar se cierran ambos archivos.
El problema surge que el archivo B se encuentra en una carpeta compartida por lo que suele suceder que se encuentre abierto por alguien, por lo tanto al momento de querer copiar los archivos de A => B, este último se abre como solo lectura, se copian los datos pero pide "guardar como" en otro archivo porq al ser de solo lectura no permite ser modificado.
Lo que yo quisiera, es que si B se encuentra abierto y se ejecute la macro q abre B como solo lectura, ahí mismo salga un cartel diciendo algo así como "El archivo B se encuentra abierto, intente mas tarde" y al darle aceptar se cierre B sin dar la opcion de guardar como.
Se les ocurre algo?
Intente usar esto pero sin exito, probablemente lo esté usando mal:
If (GetAttr(ActiveWorkbook.FullName) And vbReadOnly) = vbReadOnly Then
MsgBox "ATENCION: El archivo B se encuentra abierto, intente mas tarde"
ActiveWindow.Close savechanges:=False
End If
End Sub
Saludos y muchas gracias!!
Tengo dos archivos de excel "A.xlsm" y "B.xlsm". El archivo A tiene una macro que al momento de cerrar el archivo, sale un mensaje y pregunta: "Desea copiar la info al archivo B?" si le doy en "Si", se abre el archivo B y comienza a copiar los valores a traves de la macro, cuando termina informa con otro mensaje y luego de aceptar se cierran ambos archivos.
El problema surge que el archivo B se encuentra en una carpeta compartida por lo que suele suceder que se encuentre abierto por alguien, por lo tanto al momento de querer copiar los archivos de A => B, este último se abre como solo lectura, se copian los datos pero pide "guardar como" en otro archivo porq al ser de solo lectura no permite ser modificado.
Lo que yo quisiera, es que si B se encuentra abierto y se ejecute la macro q abre B como solo lectura, ahí mismo salga un cartel diciendo algo así como "El archivo B se encuentra abierto, intente mas tarde" y al darle aceptar se cierre B sin dar la opcion de guardar como.
Se les ocurre algo?
Intente usar esto pero sin exito, probablemente lo esté usando mal:
If (GetAttr(ActiveWorkbook.FullName) And vbReadOnly) = vbReadOnly Then
MsgBox "ATENCION: El archivo B se encuentra abierto, intente mas tarde"
ActiveWindow.Close savechanges:=False
End If
End Sub
Saludos y muchas gracias!!
Valora esta pregunta
0
