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.
Postado : 28/03/2018 1:07 pm