親愛的阿提拉，
請嘗試以下屏幕截圖，以在單擊時將實際時間插入到特定範圍內的單元格中。
（無法實現自動鎖定單元格功能，抱歉）

私人子工作表_SelectionChange（ByVal Target As Range）
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:B10")) 什麼都不是
取消=真
Target.Formula = 日期
如果結束
END SUB

親愛的保羅，
我試試你提供的代碼。 一旦我將數據輸入任何一個指定的受保護單元格，整個工作表將立即受到保護。
此外，當雙擊受保護的單元格時，我的代碼沒有任何變化。
你能解釋一下你到底想用代碼做什麼嗎？

對不起，我明白你的意思。 （錯過上面的代碼）

親愛的保羅，
請嘗試以下 VBA 代碼。

Private Sub Worksheet_Change（ByVal Target As Range）
將 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版本嗎？

嗨，特拉維斯，
我們無法修改代碼以直接在單元格中顯示文本。 但或者，下面的優化代碼將有助於在單元格註釋中顯示文本，雙擊單元格輸入日期後，註釋將自動刪除。

私人子工作表_SelectionChange（ByVal Target As Range）
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