Como desativar as funções de recortar, copiar e colar no Excel?

Suponha que você tenha uma pasta de trabalho com dados importantes que precisam ser protegidos contra recorte, cópia e colagem. Como alcançar isso? Este artigo fornece um método VBA para desativar as funções de recortar, copiar e colar ao mesmo tempo em uma pasta de trabalho do Excel.

Desative as funções de recortar, copiar e colar com código VBA

Desative as funções de recortar, copiar e colar com código VBA

Por favor, siga os passos abaixo para desativar as funções de recortar, copiar e colar em uma pasta de trabalho do Excel.

1. Na pasta de trabalho onde deseja desativar as funções de recortar, copiar e colar, pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel Projeto à esquerda e, em seguida, copie e cole o seguinte código VBA na janela ThisWorkbook (Código). Veja a captura de tela:

Código VBA: Desativa as funções de recortar, copiar e colar ao mesmo tempo no Excel

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Em seguida, pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.

Agora você não pode mais recortar ou copiar dados desta pasta de trabalho; além disso, os dados que você copiou de outras planilhas ou pastas de trabalho não podem ser colados nesta pasta de trabalho.

Observação: A função de arrastar e soltar também é desativada após executar o código VBA acima.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Artigos relacionados:

• Como desativar o clique com o botão direito no menu de abas de planilha no Excel?
• Como desativar o menu de clique com o botão direito em uma planilha específica ou em toda a pasta de trabalho no Excel?
• Como evitar ou desativar o modo de edição ao clicar duas vezes em uma célula no Excel?