亲爱的阿提拉，
请尝试以下屏幕截图，以在单击时将实际时间插入到特定范围内的单元格中。
（无法实现自动锁定单元格功能，抱歉）

Private Sub Worksheet_SelectionChange（作为范围的ByVal目标）
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:B10")) 什么都没有
取消 = 真
Target.Formula = 日期
结束如果
END SUB

亲爱的保罗，
我试试你提供的代码。 一旦我将数据输入任何一个指定的受保护单元格，整个工作表将立即受到保护。
此外，当双击受保护的单元格时，我的代码没有任何变化。
你能解释一下你到底想用代码做什么吗？

对不起，我明白你的意思。 （错过上面的代码）

亲爱的保罗，
请尝试以下 VBA 代码。

私人子Worksheet_Change（按目标的ByVal目标）
将 xRg 调暗为范围
出错时继续下一步
设置 xRg = Intersect(Range("A1:a1000,b1:b1000,G1:G1000"), 目标)
如果 xRg 什么都不是，则退出 Sub
Target.Worksheet.Unprotect 密码：="123"
xRg.Locked = 真
Target.Worksheet.Protect 密码：="123"
END SUB

Private Sub Worksheet_BeforeDoubleClick（ByVal Target As Range，Cancel As Boolean）
Application.EnableEvents = False
ActiveSheet.Unprotect 密码：="123"
If Not Intersect(Target, Range("A1:a1000")) 什么都没有
取消 = 真
Target.Formula = 日期
结束如果
If Not Intersect(Target, Range("b1:b1000")) 什么都不是
取消 = 真
Target.Formula = 时间
结束如果
If Not Intersect(Target, Range("g1:g1000")) 什么都没有
取消 = 真
Target.Formula = 时间
结束如果
ActiveSheet.Protect 密码：="123"
Application.EnableEvents = True
END SUB

美好的一天，
该代码在我的情况下运行良好。 你能告诉我你的Office版本吗？

嗨特拉维斯，
我们无法修改代码以直接在单元格中显示文本。 但或者，下面的优化代码将有助于在单元格注释中显示文本，双击单元格输入日期后，注释将自动删除。

Private Sub Worksheet_SelectionChange（作为范围的ByVal目标）
If Not Intersect(Target, Range("A1:B10")) 什么都没有
Target.NoteText "双击添加日期"
结束如果
END SUB

Private Sub Worksheet_BeforeDoubleClick（ByVal Target As Range，Cancel As Boolean）
If Not Intersect(Target, Range("A1:B10")) 什么都没有
取消 = 真
目标.评论.删除
Target.Formula = 日期
结束如果
END SUB

嗨，迪伦，
抱歉还不能帮你。 感谢您的评论。

我认为，如果您只是从数字-> 时间格式选项中选择该单元格的军事时间格式，那么应该这样做。 例如，您将选择 13:30 而不是 1:30 PM，然后它应该以军用时间显示。

嗨艾哈迈德，
抱歉，添麻烦了。 要仅通过双击填充带有日期的空白单元格，您可以应用以下 VBA 代码来完成它。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub

鲍勃，
该代码在我的情况下运行良好。 我需要更具体地了解您的问题，例如您的 Excel 版本。
该代码仅适用于您指定的单元格。

嗨路易斯，
复制宏将导致在单个工作表代码窗口中具有相同名称的两个相同过程。 Excel 不允许在一个模块中使用两个或多个相同名称的函数。 甚至在事件中也没有。 它会导致歧义。
如果你想对同一个事件做不同的任务，你需要修改原来的代码来满足你的需要。
下面的 VBA 代码可以帮你一个忙。 请试一试。

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub