Как заблокировать определенный столбец только при вставке?

Question

Я хотел бы знать, как я могу заблокировать определенный столбец только при копировании / вставке в Изменении рабочей таблицы и при этом сделать этот конкретный столбец не заблокированным, когда ничего не копируется / вставляется?

Что я имею в виду,Я хочу, например, Блокировать определенный столбец, когда cutcopymode = 1 в событии изменения (я хочу заблокировать определенный столбец только при копировании / вставке, потому что столбец не должен быть заблокирован, если ничего не вставляется), это возможно сделать это?Если да, может кто-нибудь привести примеры, как это сделать на 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

End Sub