How to check if a workbook is saved?

When you open a new workbook, you may forget to save it, it will be annoying if you close the workbook accidentally. But, how could you check if an Excel workbook has been saved?

Check if a workbook is saved or not with VBA code

---

Check if a workbook is saved or not with VBA code

---

Checking if a workbook is saved or not, the following VBA code can do you a favor, please do as this:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Check if a workbook is saved or not:

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. Then press F5 key to run this code, you will get the following prompt boxes:

(1.) If the workbook has been saved, a prompt box will pop out to remind you the last saved time of your workbook:

(2.) If the workbook has not been saved, you will get the following prompt box:

---