今天教大家做一個VBA技巧最強操作，那就是制作一個屬于你的Excel表格監控器，將別人對你的表格的每一步修改操作全部記錄下來。這樣再也不用擔心別人到底修改的是哪一步操作，我們也可以對數據進行恢復。

下面我們來看一下具體的效果展示。

演示效果圖

如上圖：我們有一個操作日志的表格和每日銷售明細的表格。操作日志是記錄每一次操作的記錄，每日銷售明細是每天需要登記的數據，當我們在每日銷售明細中進行修改操作的時候，操作日志里面就會將每一次修改記錄下來。是不是感覺很神奇呀，這就是VBA功能的強大之處。

下面我們來看一下制作的具體操作。

第一步：新建對應的工作表，我們需要每天操作的表格和需要記錄的工作表（操作日志）。如下圖：

第二步：按alt+f11或右鍵點擊工作表名稱，進入代碼編輯窗口，雙擊工程文件thisworkbook進入代碼編輯窗口。如下圖：

第三步：雙擊thisworkbook進入代碼編輯窗口，輸入以下VBA代碼即可。如下圖：

代碼如下：

Dim XX

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

If Sh.Name <> "操作日志" And Target.Rows.Count = 1 Then

With Sheets("操作日志")

If XX <> Target Then

ROW1 = Sheets("操作日志").[A65536].End(xlUp).Row + 1

.Cells(ROW1, 1) = Format(Now, "yyyy-mm-dd hh:mm:ss")

.Cells(ROW1, 2) = Sh.Name

.Cells(ROW1, 3) = XX

.Cells(ROW1, 4) = Target.Value

.Cells(ROW1, 5) = Target.Address

End If

End With

End If

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

XX = Target.Value

End Sub

第四步：另存為啟用宏的工作簿就可以正常使用了。

注意點：

1、DIM定義的名稱為XX，代碼中的名稱前后必須保持一致；

2、里面需要記錄的工作表名稱為：操作日志，代碼前后必須要保持一致。