Question

我有一个我想申请的代码。宏的目标是双击相关单元格时应用时间戳，然后锁定单元格进行编辑。如果需要编辑单元格，则需要应用密码。

问题是我无法锁定单元格和密码。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Application.EnableEvents = False

    With Target
        If .Column = 4 Then
            Select Case .Row
                Case 20, 24, 25, 27, 28, 30, 31, 32, 33, 34, 35, 37, 38, 40, 42, 43, 44, 54, 55, 56, 58, 59, 61, 62, 63, 64, 65
                    .Value2 = "Prepared By" & "  " & Environ("Username")
                    .Value2 = .Value2 & "  " & Format(Now, "yyyy-MM-dd hh:mm:ss")
                    .Value2 = .Locked = True
                     .Value2 = ActiveSheet.Protect Password:="Test"
                    End Select
                  End If
    End With
End Sub

Answer 1

这可以胜任吗？如果有人想要更换已填充的单元格，则不确定要发生什么。你可以有一个单独的SelectionChange或Change事件来处理它。

Range

锁定/解锁单元格优于VBA

1 个答案: