工作表更改时工作表有未保存的更改时显示消息框

Question

我有一个数据加载器使用工作表的按钮事件。当用户从一张纸更改为另一张而不保存数据时，我们需要向他们显示保存提示。

你可以帮忙吗？

Answer 1

以下代码将检查上次保存工作簿的时间，然后您可以与当前日期/时间进行比较，以查看它保存的时间：

Sub CheckSaved()
    Dim sLastTime String
    On Error GoTo NotSaved
    sLastTime = ThisWorkbook.BuiltinDocumentProperties("last save time")
    MsgBox sLastTime, vbInformation, "Last Saved"
    Exit Sub
NotSaved:
    MsgBox "File not saved", vbInformation, "Last Saved"
End Sub

要在选择工作表时执行代码，您可以调用以下代码，将相同的调用添加到您的所有资料中：

Private Sub Worksheet_Activate()
    Call CheckSaved
End Sub