Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Bloquear Copiar e C...
 
Notifications
Clear all

Bloquear Copiar e Colar na Barra de Ferramentas

 
Página 3 / 3
2024 - VBA & Macros
Post Recente por evilmaax 9 anos atrás
39 Posts
5 Usuários
0 Reactions
7,970 Visualizações
RSS
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Pessoal...

Buenos dias.... (EM RITMO DE FINAL DE LIBERTADORES) - Vai Curintiáaaaaaaaaa

Seguinte, tenho o código que acompanha a planilha modelo em anexo que bloqueia a função copiar, colar, recortar, duplo clique e etc, com o botão direito do mouse e teclas de atalho, entretanto, na barra de ferramentas do excel essas funções ainda continuam ativas. Gostaria que pudessem me mostrar como faço para bloquear também o acesso à barra de ferramentas. Desde já obrigado.

* Também gostaria do comando para bloquear acesso ao executor de macros (Alt+F8) e editor do VB (Alt+F11), já que também bloqueei o acesso através dos atalhos, mas na barra de ferramentas está entrando.

 
Postado : 23/06/2012 6:06 am
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

alexandrevba... obrigado pelas respostas imediatas.

Então... os outros arquivos que lhe enviei também foram feitos no excel 2010 e mesmo assim vc conseguiu desativar as funções, e quando eu abria no meu pc estavam desativadas, não seria o mesmo caso deste arquivo? Se for para te atrapalhar em suas rotinas diárias, pode deixar quieto. Só preciso saber se ainda posso aguardar ou posso desistir da idéia.

 
Postado : 09/07/2012 1:54 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Minha única esperança é fazer um trato com você.
Pegue seu arquivo, remova todos os códigos, deixe em um notepad ou onde char viável, quardado, depois me mande arquivo via Email, vou olhar com calme e te retornar!!

OK??

Att

 
Postado : 09/07/2012 6:00 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

ok... já estou providenciando.

 
Postado : 10/07/2012 5:20 am
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Boa noite!!

Minha única esperança é fazer um trato com você.
Pegue seu arquivo, remova todos os códigos, deixe em um notepad ou onde char viável, quardado, depois me mande arquivo via Email, vou olhar com calme e te retornar!!

OK??

Att

alexandrevba... bom dia!
o arquivo sem os códigos foi enviado ao teu email.

 
Postado : 10/07/2012 5:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Como eu não tenho o Office2010, está complicado para testar.

Baixe o arquivo em:
http://www.sendspace.com/file/ttk3y2

E faça os teste
Att

 
Postado : 12/07/2012 8:03 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

ficou perfeito... parabéns e obrigado.

 
Postado : 13/07/2012 8:18 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Ufa :roll: finalmente consegui resolver seu problema, obrigado pelo retorno!!

Pergunto: Já você é de Goiânia em qual empresa trabalha??

att

 
Postado : 13/07/2012 5:24 pm
 evilmaax
(@evilmaax)
Posts: 0
New Member
 

Fala galera

Com as informações que vocês passaram aqui eu montei o seguinte código

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
  
     Application.CellDragAndDrop = False
  
     End Sub         
  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  
     With Application
          .CellDragAndDrop = False
          .CutCopyMode = False 'limpa a área de transferência
     End With
  
End Sub

Mas não sou bom em VBA e não consegui fazer o que quero: Bloquear que alguém copie o que está na planilha e salve em uma arquivo externo como Word e bloquear que alguém copie de um arquivo externo, como um txt e cole na minha planilha.
Resumindo: Só consegui bloquear no âmbito interno da planilha.
Teria como fazer isso que quero?

Abraços

 
Postado : 29/09/2015 10:44 am
 evilmaax
(@evilmaax)
Posts: 0
New Member
 

Não? Ninguém? Nada?

=(

 
Postado : 13/10/2015 7:16 am
Página 3 / 3
Forum Jump:
  Tópico Anterior
Próximo Tópico