Skip to main content

Como prevenir a cópia e colagem sobre células com lista suspensa no Excel?

Author: Siluvia Last Modified: 2025-06-04

Para uma célula com uma lista suspensa de validação de dados, ao copiar o conteúdo de outra célula e colar nela, a lista suspensa desaparecerá e será substituída pelo novo conteúdo colado. Em alguns casos, você pode querer evitar que outros conteúdos sejam colados sobre a célula com a lista suspensa. O que você faria para lidar com isso? Neste artigo, você encontrará um método VBA para resolver esse problema.

Impedir a cópia e colagem sobre células com lista suspensa no Excel


Impedir a cópia e colagem sobre células com lista suspensa no Excel

1. Abra a planilha com a célula da lista suspensa na qual deseja impedir a cópia e colagem.

2. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic Applications.

3. Na janela Microsoft Visual Basic Applications, clique duas vezes no nome da planilha atual no painel esquerdo, depois copie e cole o código VBA abaixo no editor de Código. Veja a captura de tela:

copy and paste the code into the sheet module

Código VBA: Impedir a cópia e colagem sobre células com lista suspensa

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. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic Applications.

5. Quando você colar conteúdo em uma célula com lista suspensa, uma caixa de diálogo aparecerá para lembrá-lo de que a colagem não é permitida. Veja a captura de tela:

When you paste content to a cell with drop down list, a dialog box will pop up

Observação: Este VBA funciona apenas para colagem em células únicas. Se você copiar e colar em várias células, ele não funcionará.

Crie facilmente listas suspensas com caixas de seleção no Excel:

O Adicionar caixas de seleção à lista suspensa utilitário do Kutools para Excel pode ajudá-lo a criar facilmente listas suspensas com caixas de seleção em um intervalo especificado, na planilha atual, na pasta de trabalho atual ou em todas as pastas de trabalho abertas, com base nas suas necessidades.
Faça o download da versão completa 30-dia de teste gratuito do Kutools para Excel agora!


Artigos relacionados:

Como criar uma lista suspensa com múltiplas caixas de seleção no Excel?
Muitos usuários do Excel tendem a criar listas suspensas com múltiplas caixas de seleção para selecionar vários itens da lista de uma só vez. Na verdade, você não pode criar uma lista com múltiplas caixas de seleção usando Validação de Dados. Neste tutorial, vamos mostrar dois métodos para criar listas suspensas com múltiplas caixas de seleção no Excel. Este tutorial fornece o método para resolver o problema.

Criar uma lista suspensa a partir de outra pasta de trabalho no Excel
É muito fácil criar uma lista suspensa de validação de dados entre planilhas dentro de uma pasta de trabalho. Mas se os dados da lista que você precisa para a validação estiverem em outra pasta de trabalho, o que você faria? Neste tutorial, você aprenderá como criar uma lista suspensa a partir de outra pasta de trabalho no Excel em detalhes.

Criar uma lista suspensa pesquisável no Excel
Para uma lista suspensa com inúmeros valores, encontrar um valor adequado não é uma tarefa fácil. Anteriormente, introduzimos um método de auto-completar a lista suspensa ao digitar a primeira letra na caixa suspensa. Além da função de auto-completar, você também pode tornar a lista suspensa pesquisável para aumentar a eficiência no trabalho de encontrar valores adequados na lista suspensa. Para tornar a lista suspensa pesquisável, experimente o método neste tutorial.

Auto-preencher outras células ao selecionar valores na lista suspensa do Excel
Digamos que você tenha criado uma lista suspensa com base nos valores no intervalo de células B8:B14. Ao selecionar qualquer valor na lista suspensa, você deseja que os valores correspondentes no intervalo de células C8:C14 sejam automaticamente preenchidos em uma célula selecionada. Para resolver o problema, os métodos deste tutorial serão úteis.

Mais tutoriais para listas suspensas...

Melhores Ferramentas de Produtividade para Office

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!