通過VBA的Worksheet_Change事件可實現Excel數據修改時自動記錄時間與操作人。首先在VBA器中為指定工作表編寫事件過程，監控特定數據區域（如A:D列），當發生非空值更改時，觸發記錄動作：將當前系統時間寫入E列，操作系統用戶名寫入F列，并通過工作表保護功能鎖定E、F列防止篡改，確保審計信息真實可靠。

如果您在使用Excel時希望每次數據被修改后能自動記錄下修改的時間和操作人信息，可以通過設置特定的公式與VBA代碼來實現這一功能。該方法適用于需要多人協作并追蹤變更歷史的場景。

本文運行環境：DellXPS13，Windows11

一、啟用工作表更改事件監控

通過VBA中的Worksheet_Change事件可以實時捕獲單元格內容的變化，從而觸發時間與操作人記錄動作。此方法依賴于Excel的宏功能，需確保宏已啟用。

1、按下Alt+F11打開VBA器界面。

2、在左側項目資源管理器中雙擊對應的工作表名稱（如Sheet1），進入代碼窗口。

3、輸入以下基礎事件結構：

PrivateSubWorksheet_Change(ByValTargetAsRange)

EndSub

二、添加自動記錄時間功能

當指定區域的數據發生變動時，在相鄰或預設列中寫入當前系統時間，用于標記修改時刻。時間記錄應避免覆蓋原有數據區域。

1、在Worksheet_Change事件內部定義監控范圍，例如監控A列到D列的所有更改：

IfNotIntersect(Target,Me.Range("A:D"))IsNothingThen

2、設定時間寫入位置，假設E列為時間記錄列，使用以下語句寫入時間：

Me.Cells(Target.Row,"E").Value=Now

3、結束條件判斷塊：

EndIf

三、自動獲取并記錄操作人姓名

利用操作系統登錄用戶名或自定義輸入框獲取當前執行修改的操作者身份，增強審計追蹤能力。此步驟可結合Windows賬戶名自動提取。

1、聲明變量用于存儲用戶名稱：

四、限制僅對有效更改進行記錄

防止因清除內容或非關鍵修改誤觸記錄機制，需加入判斷邏輯以排除空值更新等無效操作，提升記錄準確性。

1、增加條件判斷目標單元格是否為空：

IfNotIsEmpty(Target.Value)Then

2、將時間與操作人寫入語句嵌套在此條件內，確保只有實際輸入內容時才記錄。

3、閉合該條件語句：

EndIf

五、保護記錄列防止手動篡改

為保證記錄數據的真實性與完整性，應對存放時間和操作人的列實施鎖定保護，避免人為修改或刪除。

1、選中E列和F列，右鍵選擇“設置單元格格式”，切換至“保護”選項卡，勾選“鎖定”。

2、點擊Excel菜單欄的“審閱”→“保護工作表”，設置密碼并確認保護范圍。

3、允許用戶僅數據輸入區而無法更改記錄列內容。

以上就是Excel如何制作一個自動記錄數據修改時間和操作人的表格_Excel數據修改記錄表制作方法的詳細內容，！