Reactivar libro excel de trabajo
Hola un favor tengo el siguiente código que gracias a su colaboración puede acondicionarlo a mi necesidad, solo que quiero que al terminar de abrir los libros 1 y 2 vuelva al libro donde voy a trabajar que se llama prueba y se ubique en la hoja con el nombre de meú en la celda A1
Este es el código
Private Sub BotonOK_Click()
If Psw <> "JMP" Then
MsgBox "Clave Incorrecta" & vbNewLine & "El programa se cerrará", 64, ""
Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.DisplayAlerts = True
Else
On Error Resume Next
Workbooks.Open ThisWorkbook.Path & "\" & "buscarhoja1.xls"
Workbooks.Open ThisWorkbook.Path & "\" & "buscarhoja2.xls"
End
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Ayuda por favor gracias
Jesus