Excel Bloqueio de células específicas através do VBA.

[joão marcos monteiro]

Quero bloquear a função copiar e colar apenas de algumas células específicas, através do VBA.

Se alguém puder me ajudar serei grato. OBS: Não posso bloquear a pasta de trabalho inteira, porque tenho muitas macros ativas que serão destruídas com isso.

[Midori]

@joão marcos monteiro O melhor seria bloquear a planilha e via macro desbloquear a planilha quando necessário (ou deixar apenas essas células específicas bloqueadas em Formatar Células > Proteção). Mas se isso não é possível você pode tentar no evento SelectionChange desabilitar o Ctrl+C e Ctrl+V (ou atribuir CutCopyMode = False) com OnKey quando selecionar a célula. E também terá que verificar o recurso de copiar com o botão direito do mouse.

[joão marcos monteiro]

@Midori  A planílha está toda protegida, e nas macros ja estão ativos os eventos de desproteger - executar a macro - proteger novamente. Más preciso desabilitar o copiar e colar do campo de pesquisa de cadastros onde contém uma validação por cpf, porque mesmo com a validação que esta nela, se o usuário copiar uma célula de outra validação dentro do minha planílha, ta levando a formatação junto, e desconfigurando a validação, quero evitar isso. Obrigado pela resposta.

[Edson Luiz Branco]

5 horas atrás, joão marcos monteiro disse:

...copiar e colar apenas de algumas células específicas...

você quer bloquear a cópia de (origem) um intervalo específico ou a colagem para (destino) um intervalo específico?

O primeiro é bem mais complicado. Se for o segundo, ou seja se for só pra evitar que as células destino fiquem sujas com formatação condicional indesejável, você poderia testar o seguinte no módulo de eventos da planilha, supondo que você queira evitar sujar o intervalo, digamos, A1:B3:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Selection, [A1:B3]) Is Nothing Then
    Application.CutCopyMode = False
  End If
End Sub

 

 

[joão marcos monteiro]

@Edson Luiz Branco Essas linhas de códigos funcionaram muito bem, pra impedir qualquer tipo de cópia e colagem, más tenho uma macro de inclusão de cadastro, que ao ser executada, copia os valores e joga pra tabela, então usando esse código seu já impede minha macro de cumprir sua funcionalidade. Acho que  uma linha de código que permitisse copiar e colar apenas valores sem formatação ja me ajudaria perfeitamente. Obrigado.

[Edson Luiz Branco]

29 minutos atrás, joão marcos monteiro disse:

...tenho uma macro de inclusão de cadastro, que ao ser executada, copia os valores e joga pra tabela

Talvez se você editasse essa sua macro de inclusão para, ao invés de usar copiar/colar, trabalhar com os objetos ranges internamente... geralmente fica até mais rápido e eficiente. De qualquer forma, o ideal seria analisar seu arquivo pra propor uma solução mais assertiva.

34 minutos atrás, joão marcos monteiro disse:

Acho que  uma linha de código que permitisse copiar e colar apenas valores sem formatação ja me ajudaria perfeitamente.

Para essa finalidade existe o método PasteSpecial com o argumento xlPasteValues.

Outra alternativa seria monitorar a alteração em seu range destino, remover todas as FC's indesejadas que foram recém coladas e restaurar a FC padrão do intervalo.

[joão marcos monteiro]

@Edson Luiz Branco Obrigado pela ideia,  ao invés de usar copiar/colar, vou usar objetos ranges internamente.