Hola amigos de AE

Una consulta. Tengo un archivo para que se guarde automáticamente antes de cerrar con un mensaje que avisa al usuario que se ha guaedado con éxito, sin embargo, desde de darle ok al mensaje pregunta aparece el cuadrito que pregunta si deseo guardar, no guardar o cancelar. 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
MsgBox "ARCHIVO HA SIDO GUARDADO CON ÉXITO"
End Sub

El archivo es muy grande y no lo puedo adjuntar.

Será algún comando en alguna macro del archivo que pregunta si desea guardar??

Muchas Gracias!!!

 

 

 

¿Estás seguro que el código está en ThisWorkbook?

Si @Antoniestá en ThisWorkbook. Te paso el codigo como está realmente. Le faltaba algo.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
For Each she In Sheets
she.Visible = xlVeryHidden
Next
ThisWorkbook.Save
MsgBox "ARCHIVO HA SIDO GUARDADO CON ÉXITO"
End Sub

No puedes ocultar todas las hojas de un libro.

Prueba con esto:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
	Application.DisplayAlerts = False
	ThisWorkbook.Save
	Application.DisplayAlerts = True
	MsgBox "ARCHIVO HA SIDO GUARDADO CON ÉXITO"
End Sub

 

 

 

Hola @Antonila ultima hoja siempre que visible. Mira analizando bien las macros del archivo pude detectar donde está el problema y lo puse en archivo resumido sin información pero que hace la misma rutina.

el código está en Thisworkbook y sale cuadro preguntando si se desea guardar, Lo anexo para que veas. Alguna recomendación?

Gracias Antoni

before close.xlsm

No funciona tu sugerencia @overdrive

Con tu ejemplo se puede explicar mejor lo que está pasando. Cuando intentas cerrar un libro y se han realizado cambios (puedes saber si se han guardado con la propiedad ThisWorkbook.Saved), el orden de eventos es:

1. Workbook_BeforeClose
2. Workbook_BeforeSave
3. Workbook_AfterSave
4. Workbook_WindowDeactivate
5. Workbook_Deactivate

Al guardar el libro en el evento BeforeClose provocas que se lancen otros dos eventos más, los mismos que se ejecutarían si no hubieses guardado el libro, quedando una secuencia así:

1. Workbook_BeforeClose
2.                                    Workbook_BeforeSave
3.                                    Workbook_AfterSave
4. Workbook_BeforeSave
5. Workbook_AfterSave
6. Workbook_WindowDeactivate
7. Workbook_Deactivate

Te propongo un orden distinto:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success Then

        MsgBox "ARCHIVO HA SIDO GUARDADO CON ÉXITO"
    End If
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("GRACIAS").Move After:=Sheets(Sheets.Count)
    If ThisWorkbook.Saved = False Then ThisWorkbook.Save

End Sub

Lo he probado y creo que se amolda a tus necesidades.

Before_Close_Leonardo.xlsm

Excelente @overdrivefunciona perfectamente ? Gracias!!!!