Como prevenir a cópia e colagem sobre células com lista suspensa no Excel?
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:
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:
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.
Melhores Ferramentas de Produtividade para Office
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!