Macro de apertura de libro condicionada

Para Dante Amor. Me gustaría conseguir una macro que actuase en el evento "thisworkbook" en la apertura de libro ("workbook_open") y que aperturase el libro sólo si encuentra un archivo en el PC indicándole su ubicación (ej. "C:\documentos\helvetia.xls"). En caso de que no lo encuentre no abra el libro.

1 Respuesta

Respuesta
1

Pon lo siguiente en los eventos de thisworkbook

Private Sub Workbook_Open()
'Por.Dante Amor
    If Dir("C:\documentos\helvetia.xls") = "" Then
        MsgBox "El archivo se cerrará", vbCritical
        Application.DisplayAlerts = False
        ThisWorkbook.Close False
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas