Abrir libro secundario, solo si esta abierto el Principal

[JMANGUIANO1]

Buen dia, tengo un problema, espero me puedan ayudar,

Tengo un libro Proncipal el cual hace su apertura si el formulario de acceso lo permite, y se comunica con otros libros, el detalle es que nececito que los otros libros se puedan abrir solo si el libro principal esta abierto, si no lo esta que lo abra para poder accesar desde el formulario de acceso.

*Libro Admon.xlsm - Formulario acceso

***Libro Poliza

***Libro Diario

***Libro Edo Financiero

lo intenté llamando esta macro desde los libros Poliza, Diario, Edo Financiero

Workbook - Open

Private Sub Workbook_Open()
Call Inicializando
End Sub

_____________________________________________________

Sub Inicializando()
    Application.visible = False
    Dim xWBName As String
    Dim xWb As Workbook
    On Error Resume Next
    xTitleId = "ContaInfoLM"
    xWBName = Application.InputBox("Admon.xlsm", xTitleId, "", Type:=2)
    Set xWb = Application.Workbooks(xWBName)

    If xWb Is Nothing Then
        MsgBox "Primero debes iniciar Secion"
        Workbooks.Open ThisWorkbook.Path & "\Admon.xlsm"
        Workbooks("Polizas.xlsb").Close SaveChanges:=False
    Else
        MsgBox "Has iniciado secion correctamente"
        frmSplash.Show 0
        Application.visible = True
    End If

End Sub

 Pero tengo que teclear el nombre del archivo principal, y es molesto, abrá alguna otra forma, gracias por su atencion

 

[Haplox]

Hace 19 horas, JMANGUIANO1 dijo:

Pero tengo que teclear el nombre del archivo principal, y es molesto, abrá alguna otra forma, gracias por su atencion

No he legado a entender si quieres comprobar si el libro principal debe estar abierto, o los otros... en cualquier caso buscando en Internet encuentras un montón de métodos de saber si un libro está abierto ono. Por ejemplo:

Saber si libro está abierto

[JMANGUIANO1]

Gracias Haplox por tu tiempo, si, es correcto el libro principal debe estar abierto para que los demas libros puedan abrirce, si el libro principal no se ha abierto, y se pretende abrir otro libro que este marque error y se abra el formulario del libro principal para poder acceder, checare tu enlace muchas gracias