Saber respuesta por "Archivo ya existe"

[yesidbaquero]

Nesecito ayuda para conocer la respuesta que da el usuario a un cuadro de diálogo que aparece cuando desde una macro de Excel intento guardar un archivo y ya existe otro archivo con ese nombre. El título del cuadro de diálogo es Microsoft Office Excel, el texto mostrado informa que ya existe un archivo con ese nombre, pregunta si desea reemplazar el archivo existente y da las opciones Si, No y Cancelar

Ese cuadro de diálogo lo genera automáticamente Excel, no lo genero yo desde la macro que estoy ejecutando, y por tanto yo no se en que variable se guarda la respuesta del usuario.

 

[Greg Truby]

Hola Yesi,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Bienvenido a MrExcel. De lo que me doy cuenta no ha manera directa atrapar el resultado de tal diálogo. Lo que se puede hacer es atrapar el evento BeforeSave y examinar el valor de SaveAsUI. Y si está cierto cambiarlo a falso y poner su propio díalogo.
<o></o>
Aquí hay un ejemplo:<o></o>

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim fdSaveAs As FileDialog
 
    Set fdSaveAs = Application.FileDialog(msoFileDialogSaveAs)
 
    If SaveAsUI Then
 
        Let SaveAsUI = False
 
        Application.EnableEvents = False
        With fdSaveAs
            If .Show = -1 Then
                Me.SaveAs .SelectedItems(1)
            Else
                Cancel = True
            End If
        End With
        Application.EnableEvents = True
    End If
 
End Sub

Favor sepa que no hice pruebas extensivas solamente breves pero creo que con esto ya se puede agarrar el hilo.