Excel的最新修改时间戳

可能重复：

您好，我有一本excel工作簿…我想在工作表1的单元格A2中记下最新修改工作表2任何行或列的时间戳

所以我的问题有两个： 1.希望跟踪最新的修改时间。 2.希望将sheet1的单元格A2设置为受用户保护的单元格，以便任何人都不能篡改跟踪的时间戳。 这是我工作的代码…它不正确，因为它没有做任何事情…如果它会做任何事情，那么肯定没有任何问题，因为它没有做任何事情，所以它有点无用

       Private Sub worksheet_change(ByVal Target As Range)
       Dim Row, Col

       For Row = 2 To Sheet2.UsedRange.Rows.Count
       For Col = 1 To Sheet2.UsedRange.Columns.Count
       If Target.Cells(Row, Col) Then
       Application.EnableEvents = False
       Sheet1.Cells("A2") = now()
       Application.EnableEvents = True
       End If
       Next Col
       Next Row

       End Sub        

---

要使您朝着正确的方向前进：

• 在图纸2的“图纸”选项卡上单击鼠标右键
• 选择“查看代码”
• 您将在模块顶部看到两个下拉列表。在第一个选项中选择“工作表”。在第二个选项中选择“更改”
• 这将为工作表_更改过程创建模板，每当用户更改Sheet2中的值时，将触发该模板
• 用它将时间戳写入活页1的单元格A2

对于问题的第二部分，请保护表1。在代码中，这是：

ThisWorkbook.Worksheets("Sheet1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

在写入单元格A2之前，请先解除对其的保护：

ThisWorkbook.Worksheets("Sheet1").Unprotect

如果要添加密码，请在“帮助”中查找“保护”和“取消保护”方法

---

（请记住，即使使用密码，工作表保护也非常弱。对于临时工作，也可以，但如果用户决定这样做，它可能会被破解。更好的方法可能是将值写入具有xlVeryHidden可见属性的工作表中，以便大多数用户甚至不知道它在那里。）（如果将保护应用于VBA项目）。同样，不可撤消，但比将其放在可见的工作表中要好。）

你试过什么吗？请给我们看一些代码。@Douglancy:我根本不知道如何解决我问题的第二部分。我也得不到任何答案。你在关于问题第一部分的评论中得到了一个很好的建议。你应该阅读常见问题解答，了解问题的预期内容。你需要付出一些努力。