今天我們來學習一個職場工作的神操作，那就是Excel的保密。之前我們都有講過如何對錶格進行各式各樣的加密操作，這樣的方式是不希望別人對我們的表格進行需修改。
但是有些情況我們需要別人幫我共同完成某項工作，但是又需要看對方是否有操作失誤的時候，這個時候我們就可以使用下面的方法對對方進行操作記錄監控。
一、效果演示：
二、操作方法：
第一步：首先新建一個名稱為：日誌，的工作表，因為VBA代碼中對應的表格名字為日誌。在日誌工作表中按照要求添加以下表頭；
第二步：鼠標放在日誌工作表名稱上面，點擊右鍵，選擇查看代碼。
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，定義的名稱必須保持一致，因為下方在對應的時候，都是同步使用的XX。
閱讀更多 excel函數與vba實例 的文章
