Olá pessoal
Estou tentando bloquear tudo que remeta a copiar e colar na planilha.
Consegui bloquear o copiar, colar, recortar e colar especial com o código abaixo:
Private Sub Workbook_Activate() Dim oCtrl As Office.CommandBarControl 'Desabilita todos os comandos de Recortar For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = False Next oCtrl 'Desabilita todos os comandos de Copiar For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = False Next oCtrl 'Desabilita o colar especial For Each oCtrl In Application.CommandBars.FindControls(ID:=21437) oCtrl.Enabled = False Next oCtrl Application.CellDragAndDrop = False End Sub
Porém ainda tem uma opção que não consigo, que é o "Colar somente texto".
Baixei uma lista com todos os IDs aceitos pelo Excel (que foi bem difícil de encontrar, portanto estou colocando o link para quem precisar), porém não encontro o ID que preciso (são mais de 3500 deles).
Tentei com o "18064", que na listagem aparece como "PasteTextOnly", mas não funcionou.
Pergunto: Sabem como fazer isso ou o código que preciso usar? ou nome da opção a ser buscada caso alguém tenha a versão em inglês para conferir.
upzinho por favor
Você pode baixar a relação dos IDs de cada comando do Excel no link abaixo.
Office 2010 Help Files: Office Fluent User Interface Control Identifiers
No exemplo abaixo mostra o arquivo apenas com o ID que você usou referente a Recorta. Só procurar PasteTextOnly que achará o ID.
Pietro Farias
Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.
Você pode baixar a relação dos IDs de cada comando do Excel no link abaixo.
Office 2010 Help Files: Office Fluent User Interface Control Identifiers
No exemplo abaixo mostra o arquivo apenas com o ID que você usou referente a Recorta. Só procurar PasteTextOnly que achará o ID.
Provavelmente você não leu minha pergunta, pois além de colocar um link mais atualizado, versão 2016, ainda disse que testei justamente com esse código e não deu.
Mas obrigado