Visual Basic para Aplicaciones - Condicionante para un libro abierto

If ArchivoAbierto(NOMBRE_LIBRO) = False Then

   MsgBox "Debes abrir el libro " & NOMBRE_LIBRO & " para poder continuar", vbExclamation+vbOkOnly, "Falta libro"

   Exit Sub

end if

Function ArchivoAbierto(NombreArchivo) As Boolean 'funcion que detecta si esta abierto :D

    Abierto = False

    For i = 1 To Windows.Count

        If Windows(i).Caption = NombreArchivo Then

            ArchivoAbierto = True

        End If

    Next

End Function

Workbooks.Open Filename:=File, Origin:=xlWindows

If ActiveWorkbook.ReadOnly Then

    '  --- Libro abierto por otro usuario

Else

    ' --- Aquí se puede modificar y guardar

End If