No permitir abrir libro si esta siendo utilizado.

[sync289]

Sres buenas tardes, tengo una cuestion con un archivo que esta red, me gustaria saber si existe la posibilidad de no permitir abrir el archivo si algun otro usuario lo esta ulilizando.

(Macro, confifuracion o algun otro metodo)

la realidad es que el archivo cuenta con macros y no permite compartirlo en red, por las limitaciones que da esta funcion, pero si lo abren como lectura, se olvidan y empiezan a capturar, y pues si despues dan guardar no permanecera esa informacion en el libro correcto.

Espero haber sido claro

Muchas gracias que tenga excelente fin de semana.

[ABOHORQUEZ]

Hola,

Prueba con este codigo .

Sub xInicio()

    Dim XLSLibro_B As Excel.Worksheet 'Se define la variable como hoja Excel

    Set XLSLibro_B = Workbooks(xNombre).Sheets(1)


    If Not Workbooks(XLSLibro_B.Parent.Name).ReadOnly Then

        ' aqui el codigo que esta disponible

    Else

        ' el libro ya esta en uso

        Workbooks(XLSLibro_B.Parent.Name).Close (False) 'cierra XLSLibro_B SIN GUARDAR los cambios

        resp = MsgBox("El archivo está siendo utilizado por otro usuario." & Chr(10) & "¿Desea abrir una copia de este archivo?" & _

        " o Deberá volver a intentarlo más tarde, cuando el archivo esté disponible... o Contacte Andys Bohorquez  ", vbCritical + vbYesNo, "Libro en uso...")


        If resp = vbYes Then

'            Call xGuardar_Copia

        Else

            ThisWorkbook.Close SaveChanges:=False

        End If

    End If

End Sub[/CODE]