드롭다운 목록이 있는 Excel 셀에서 복사 및 붙여넣기를 방지하려면 어떻게 해야 하나요?

데이터 유효성 검사 드롭다운 목록이 있는 셀의 경우, 다른 셀에서 내용을 복사하여 붙여넣으면 드롭다운 목록이 사라지고 새로운 붙여넣기 내용으로 대체됩니다. 일부 경우에는 드롭다운 목록이 있는 셀에 다른 내용을 복사하고 붙여넣는 것을 방지하고 싶을 수 있습니다. 이 문제를 해결하기 위해 무엇을 하시겠습니까? 이 문서에서는 VBA 방법을 통해 이 문제를 처리하는 방법을 알아봅니다.

Excel에서 드롭다운 목록이 있는 셀에 대한 복사 및 붙여넣기 방지

Excel에서 드롭다운 목록이 있는 셀에 대한 복사 및 붙여넣기 방지

1. 복사 및 붙여넣기를 방지하려는 드롭다운 목록 셀이 있는 워크시트를 엽니다.

2. Microsoft Visual Basic Applications 창을 열려면 Alt + F11 키를 동시에 누릅니다.

3. Microsoft Visual Basic Applications 창에서 왼쪽 창에 있는 현재 워크시트 이름을 두 번 클릭한 다음 아래 VBA 코드를 코드 편집기에 복사하여 붙여넣습니다. 스크린샷 보기:

VBA 코드: 드롭다운 목록이 있는 셀에 대한 복사 및 붙여넣기 방지

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. Microsoft Visual Basic Applications 창을 종료하려면 Alt + Q 키를 누릅니다.

5. 드롭다운 목록이 있는 셀에 내용을 붙여넣으면 붙여넣기가 허용되지 않는다는 대화 상자가 표시됩니다. 스크린샷 보기:

참고: 이 VBA는 단일 셀 붙여넣기에서만 작동합니다. 여러 셀에서 복사 및 붙여넣기를 할 경우 작동하지 않습니다.

관련 기사: