仅在粘贴时如何锁定特定列？

Question

我想知道仅当在工作表更改中复制/粘贴时如何锁定特定列，并且在什么都没有复制/粘贴时仍使该特定列不锁定吗？

我的意思是，例如，我想在"<option value=".$row7['DESCRIPTION']." >" 时锁定特定的列 在更改事件中，（我只想在复制/粘贴时锁定特定的列，因为如果没有粘贴，就不应该锁定该列）可以这样做吗？如果是这样，有人可以提供一些示例在vba上执行此操作的方法吗？

Answer 1

尝试一下并获得反馈：

在VBA窗口中，在Sheet1代码页中编写以下代码：

Private Sub WorkSheet_Change(ByVal TargetRNG As Range)
If Application.CutCopyMode = xlCopy OR Application.CutCopyMode = xlCut Then
    If Intersect(TargetRNG, Range("B:B")) Then
        Application.Undo
    end if
End If

结束子