Abrir libro secundario, solo si esta abierto el Principal
publicado
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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