特定工作表的上次保存日期和时间 VBA

Question

您好，我遇到了工作簿的上次保存选项，代码允许跟踪上次修改和显示在单元格中的日期和时间。我想知道 vba 是否可以允许跟踪数据和最后一次在特定工作表上修改的时间，比如说 Sheet1。因此，每次更改并保存在工作表 1 中时，它只会反映该工作表保存的时间和日期。这是到目前为止我为工作簿提供的代码，尝试将.Sheets("Sheet 1") 添加到代码中，但它跟踪我访问页面的时间，而不是我编辑的时间。这些是我工作簿中的代码。

   Private Sub Workbook_Open()
  Call starttheClock
End Sub

Sub Workbooky()
ActiveWindow.ScrollRow = 1
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "Index" Then Exit Sub

    Application.EnableEvents = 0

    i = ActiveSheet.Index

    With Sheets("Index")

        .Cells(i, 1) = ActiveSheet.Name
        .Cells(i, 2) = Now

    End With

    Application.EnableEvents = 1

End Sub

Answer 1

如果您确实有一个名为“索引”的工作表，并且希望在每次更改工作表时将日期添加到工作表中，那么只是为了给上述答案增加一点混乱，可能是一个代码将进入工作簿模块。然后，只要任何工作表发生更改，您就只有一个代码可以检查。

这是工作簿模块所在的位置，代码属于那里。

这假设您有一个名为“索引”的工作表，一旦您正常运行，您可以随意命名它。 实际工作表名称和代码中的工作表名称必须完全匹配。

这是将进入工作簿模块的代码。将其复制并粘贴到工作簿模块中

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "Index" Then Exit Sub

    Application.EnableEvents = 0

    i = ActiveSheet.Index

    With Sheets("Index")

        .Cells(i, 1) = ActiveSheet.Name
        .Cells(i, 2) = Now

    End With

    Application.EnableEvents = 1

End Sub

Answer 2

您无法保存工作表。您始终必须保存整个工作簿。这就是它出现错误的原因。

如果您想知道编辑每张工作表的确切时间和日期，您可以按以下方式找到。

http://www.ozgrid.com/forum/showthread.php?t=46624

Private Sub Worksheet_Change(ByVal Target As Range) 
    Sheets("Index").Range("B2") = Now 
End Sub