¿Cómo comprobar si un libro de trabajo está guardado?

Cuando abres un nuevo libro de trabajo, podrías olvidarte de guardarlo, y sería molesto si cierras el libro de trabajo accidentalmente. Pero, ¿cómo puedes verificar si un libro de Excel ha sido guardado?

Comprobar si un libro de trabajo está guardado o no con código VBA

Comprobar si un libro de trabajo está guardado o no con código VBA

Para comprobar si un libro de trabajo está guardado o no, el siguiente código VBA puede ayudarte, por favor sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Comprobar si un libro de trabajo está guardado o no:

Sub filesaved()
'Updateby Extendoffice 20161109
    Dim sLastTime As String
    On Error GoTo EHandler
    sLastTime = ActiveWorkbook.BuiltinDocumentProperties("last save time")
    MsgBox sLastTime, vbInformation, "Kutools for Excel"
    Exit Sub
EHandler:
    MsgBox "File not saved", vbInformation, "Kutools for Excel"
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, obtendrás los siguientes cuadros de diálogo:

(1.) Si el libro de trabajo ha sido guardado, aparecerá un cuadro de diálogo indicándote la última hora en que se guardó tu libro de trabajo:

(2.) Si el libro de trabajo no ha sido guardado, obtendrás el siguiente cuadro de diálogo: