Question

任何人都可以帮我找excel表格的代码，其中：我有一个excel表，它保存在共享驱动器中，被许多处理器使用。将有一张表格提供最新更新。当任何人打开它时，宏应该弹出一个问题＆＃34;如果你已经通过了最近的更新？＆＃34; 如果用户单击YES宏应该停止，如果用户单击否，它应该将他/她带到名为Updates的工作表。此外，它应该从列表中捕获日期，时间和用户名称，这些列表将包含宏将限制日期和时间的工作表。

这只是为了确认该特定处理器是否已访问更新页面。

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

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

1 个答案: