Notifications
Clear all

Bloqueando item específico do menu

4 Posts
2 Usuários
0 Reactions
1,289 Visualizações
(@evilmaax)
Posts: 82
Trusted Member
Topic starter
 

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
(@evilmaax)
Posts: 82
Trusted Member
Topic starter
 

upzinho por favor

 
Postado : 02/04/2018 7:17 am
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

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.

ANALISTA X

 
Postado : 02/04/2018 10:55 am
(@evilmaax)
Posts: 82
Trusted Member
Topic starter
 

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

 
Postado : 05/04/2018 10:08 am