今天我们来学习一个职场工作的神操作，那就是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實例 的文章
