Como desativar as funções de cortar, copiar e colar no Excel?
Imagine que tem uma pasta de trabalho com dados importantes que precisa de proteger contra operações de corte, cópia e colagem. Como o conseguir? Este artigo apresenta-lhe um método VBA para desativar simultaneamente as funções Cortar, Copiar e Colar numa pasta de trabalho do Excel.
Desativar as funções cortar, copiar e colar com código VBA
Desativar as funções cortar, copiar e colar com código VBA
Siga os passos abaixo para desativar as funções de cortar, copiar e colar numa pasta de trabalho do Excel.
1. Na pasta de trabalho onde pretende desativar as funções cortar, copiar e colar, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisWorkbook no painel esquerdo do Projeto e copie e cole o seguinte código VBA na janela ThisWorkbook (Código). Veja a imagem:
Código VBA: Desativar simultaneamente as funções cortar, copiar e colar 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, prima as teclas Alt+Q para fechar a janela do Microsoft Visual Basic for Applications.
Já não é possível cortar nem copiar dados desta pasta de trabalho; além disso, os dados copiados de outras folhas ou pastas de trabalho não podem ser colados aqui.
Nota: A funcionalidade de arrastar e largar também é desativada após executar o código VBA acima.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como desativar o clique com o botão direito do rato no separador da folha no Excel?
- Como desativar o menu de clique com o botão direito do rato numa folha de cálculo específica ou em toda a pasta de trabalho no Excel?
- Como impedir ou desativar o modo de edição ao fazer duplo clique numa célula no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos