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.
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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins