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。 드롭다운 셀에 붙여넣기를 시도해 보세요。 메시지가 표시되어 붙여넣기가 차단되고 드롭다운이 그대로 유지됩니다：

대안 솔루션：

• 워크시트 보호：드롭다운이 포함된 선택 잠금을 설정하고 시트를 보호하여 편집을 방지하세요。자세히 알아보기
• 데이터 유효성 검사 경고 사용：잘못된 수동 입력을 차단하려면 경고 스타일을 「중지」로 설정하세요。자세히 알아보기