在Excel中，当他们访问工作表时，使用用户名自动捕获日期和时间

Question

谁能帮我找出 excel 工作表的代码，其中：我有一个保存在共享驱动器中的 excel 表，供许多处理器使用。将有一张最新更新的表格。当有人打开宏时，它应该弹出一个问题"如果你已经完成了最近的更新？如果用户单击"是"宏应停止，如果用户单击"否"，则应将他/她带到名为"更新"的工作表。此外，它还应该从列表中捕获日期，时间和用户名，这些列表将位于宏将捕获日期和时间的工作表中。

这仅用于确认该处理器是否已访问更新页面。

Answer 1

将此代码放在工作表的代码部分中。

Private Sub Worksheet_Activate()
    If MsgBox("If you have gone thru recent updates?", vbYesNo) = vbNo Then
        ThisWorkbook.Sheets("Updates").Activate
        MsgBox Environ("UserName") & ": " & Now()
    End If
End Sub