通过VBA的Worksheet_Change事件可实现Excel数据修改时自动记录时间与操作人。首先在VBA编辑器中为指定工作表编写事件过程，监控特定数据区域（如A:D列），当发生非空值更改时，触发记录动作：将当前系统时间写入E列，操作系统用户名写入F列，并通过工作表保护功能锁定E、F列防止篡改，确保审计信息真实可靠。
如果您在使用Excel时希望每次数据被修改后能自动记录下修改的时间和操作人信息，可以通过设置特定的公式与VBA代码来实现这一功能。该方法适用于需要多人协作编辑并追踪变更历史的场景。
本文运行环境：Dell XPS 13，Windows 11
一、启用工作表更改事件监控
通过VBA中的Worksheet_Change事件可以实时捕获单元格内容的变化，从而触发时间与操作人记录动作。此方法依赖于Excel的宏功能，需确保宏已启用。
1、按下Alt + F11打开VBA编辑器界面。
2、在左侧项目资源管理器中双击对应的工作表名称（如Sheet1），进入代码窗口。
3、输入以下基础事件结构：
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
二、添加自动记录时间功能
当指定区域的数据发生变动时，在相邻或预设列中写入当前系统时间，用于标记修改时刻。时间记录应避免覆盖原有数据区域。
1、在Worksheet_Change事件内部定义监控范围，例如监控A列到D列的所有更改：
If Not Intersect(Target, Me.Range("A:D")) Is Nothing Then
2、设定时间写入位置，假设E列为时间记录列，使用以下语句写入时间：
Me.Cells(Target.Row, "E").Value = Now
3、结束条件判断块：
End If
三、自动获取并记录操作人姓名
利用操作系统登录用户名或自定义输入框获取当前执行修改的操作者身份，增强审计追踪能力。此步骤可结合Windows账户名自动提取。
1、声明变量用于存储用户名称：
Dim userName As String
2、调用VBA内置函数获取当前计算机登录用户名：
userName = Environ("USERNAME")
3、将获取到的用户名写入F列对应行：
Me.Cells(Target.Row, "F").Value = userName
四、限制仅对有效更改进行记录
防止因清除内容或非关键修改误触记录机制，需加入判断逻辑以排除空值更新等无效操作，提升记录准确性。
1、增加条件判断目标单元格是否为空：
If Not IsEmpty(Target.Value) Then
2、将时间与操作人写入语句嵌套在此条件内，确保只有实际输入内容时才记录。
3、闭合该条件语句：
End If
五、保护记录列防止手动篡改
为保证记录数据的真实性与完整性，应对存放时间和操作人的列实施锁定保护，避免人为修改或删除。
1、选中E列和F列，右键选择“设置单元格格式”，切换至“保护”选项卡，勾选“锁定”。
2、点击Excel菜单栏的“审阅”→“保护工作表”，设置密码并确认保护范围。
3、允许用户仅编辑数据输入区而无法更改记录列内容。
