EXCEl中把两段VBA代码合用。就是一个工作表中同时运行两个代码。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
With c
If .Value <> "" Then
ActiveSheet.Unprotect "123"
.Offset(0, 2).Value = Date
.Locked = True
ActiveSheet.Protect "123"
End If
End With
Next
End Sub
-----
另外，取号的规则不明：
同一本文件，多个人取，怎么写入表格？是每个人取时加一行数据？还是就这一行，改人名？
编号是不同文件不同编号？还是同一本按取的时间 把 序号 往上加？
Hi我吧，详细解答

你得那个TZ是通知？那么JL7.3是怎么来的？是不是只需要中间三位顺序增加，后面六位显示当天日期就行？