小编Ysa*_*nki的帖子

我正在使用波纹管代码:此代码用于示例:如果我在单元格A1中输入任何值,则单元格B1显示时间戳.

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Target
       If .Count > 1 Then Exit Sub
       If Not Intersect(Range("B1:B10"), .Cells) Is Nothing Then
           Application.EnableEvents = False
           If IsEmpty(.Value) Then
               .Offset(0, 1).ClearContents
           Else
               With .Offset(0, 1)
                   .NumberFormat = "hh:mm AM/PM"
                   .Value = Now
               End With
           End If
           Application.EnableEvents = True
       End If
    End With
    End Sub

我现在要做的是,一旦用宏创建时间戳,就保护/不可编辑单元格"B1:B10".我谷歌如何保护,但我很难插入我找到的代码.任何人都可以帮助我如何构建/插入此代码到我的原始代码？

    Private Sub Worksheet_Change(ByVal Target As Range)
    'set your criteria here
    If Target.Column = 1 Then

        'must disable events if you change the sheet as …