Pregunta: | 68363 - ABRIR LIBRO DEPENDIENDO DE LA EXISTENCIA DE OTRO... |
Autor: | Mauricio Olea |
Buenos dias amigos del foro, tengo una consulta para ustedes, resulta que tengo un libro con varias hojas, y necesito una macro que antes de abrir el libro me busque un archivo en el disco duro, por ejemplo: mauricio.txt, si este archivo existe en mi disco duro, entonces abrie el libro sin problemas, pero si no existe el archivo mauricio.txt en el disco duro, que no abra mi libro de excel y que me muestre un mensaje diciendo, por ejemplo : no tiene permisos para abrir este archivo. Espero haberme dejado entender bien, tengo una macro que me funcionaba bien en un libro de excel version 2007, pro ahora que migre a la version 2013 no me trabaja, a no ser que parte del codigo de esta macro este errado: If ThisWorkbook.ReadOnly = True Then ThisWorkbook.Close False End If End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False Dim W As Worksheet On Error Resume Next If Not (existeArchivo(archivoInicial)) Then MsgBox "NO TIENE PERMISO PARA VER ESTE ARCHIVO!!. " & _ "PONGASE EN CONTACTO CON MAURICIO OLEA AL TELEFONO 78642594 / 72681484 O AL EMAIL [email protected] PARA OBTENER LOS PERMISOS ADECUADOS. ", vbCritical + vbOKOnly, "ATENCIÓN" ThisWorkbook.Close True Exit Sub End If For Each W In ThisWorkbook.Worksheets If W.Name <> Hoja2.Name Then W.Visible = xlSheetVisible End If Next W Hoja2.Visible = True Set W = Nothing Application.ScreenUpdating = True End Sub Agradecería sus valiosos comentarios. |