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

붙여넣기된 내용으로 인해 드롭다운 목록이 덮어쓰는 것을 방지하려면 해당 셀이 포함된 워크시트에서 VBA를 사용할 수 있습니다. 다음 단계를 따르세요:

1. 보호하려는 드롭다운이 포함된 워크시트를 엽니다.

2. Alt + F11을 눌러 Visual Basic for Applications 창을 엽니다.

3. 왼쪽 창에서 보호를 적용하려는 시트를 두 번 클릭합니다("ThisWorkbook"이 아님). 다음 VBA 코드를 코드 편집기에 붙여넣습니다:

VBA 코드: 드롭다운 위에 붙여넣기 방지

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice
    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. Alt + Q를 눌러 VBA 편집기를 닫고 Excel로 돌아갑니다.

5. 드롭다운 셀에 붙여넣기를 시도해보세요. 메시지가 붙여넣기를 방지하고 드롭다운은 그대로 유지됩니다:

대체 솔루션:

• 워크시트 보호: 드롭다운이 있는 셀을 잠그고 워크시트를 보호하여 편집을 방지하세요. 자세히 알아보기
• 데이터 유효성 검사 경고 사용: 경고 스타일을 "중지"로 설정하여 잘못된 수동 입력을 차단하세요. 자세히 알아보기