【在线求助】这个考勤表应该怎么改？

ami198505

下面这个是只能第一列点一下才有时间显示：
Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Or Target <> "" Then Exit Sub
If ActiveSheet.ProtectContents Then
    If InputBox("请输入密码:") = "123" Then
        ActiveSheet.Unprotect "123"
        Target = Now
        Target.Locked = True
        ActiveSheet.Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
    End If
Else
    Target = Now
    Target.Locked = True
    ActiveSheet.Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
End If
End Sub




怎么修改才能后面每个名字对应的都能显示时间呢？

ami198505

后边对应的空格点一下 都能出现时间  怎么做啊