显示器框时显示纸框时，在更改工作表时没有保存的更改

Question

i使用按钮事件的数据加载程序。当用户从一张纸更改为另一张而不保存数据时，我们需要向他们展示保存的提示。

您能为此提供帮助吗？

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

要在选择工作表时执行代码，您可以像下面的代码拨打代码，将相同的调用添加到所有sheeets：

Private Sub Worksheet_Activate()
    Call CheckSaved
End Sub