如何檢查工作簿是否已保存？

當您打開一個新的工作簿時，可能會忘記保存它，如果不小心關閉工作簿會讓人感到困擾。但是，您要如何檢查 Excel 工作簿是否已經保存呢？

使用 VBA 代碼檢查工作簿是否已保存

使用 VBA 代碼檢查工作簿是否已保存

以下 VBA 代碼可以幫助您檢查工作簿是否已保存，請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下代碼粘貼到模組視窗中。

VBA 代碼：檢查工作簿是否已保存：

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. 然後按 F5 鍵運行此代碼，您將看到以下提示框：

（1.）如果工作簿已經保存，將彈出一個提示框，提醒您工作簿的最後保存時間：

（2.）如果工作簿尚未保存，您將看到以下提示框：