Bloquear Copiar e Colar na Barra de Ferramentas – Página 3 – 2024 – VBA & Macros – Planilhando

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 13/07/2012 5:24 pm

evilmaax

(@evilmaax)

Posts: 82

Trusted 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: 82

Trusted Member

Não? Ninguém? Nada?

=(

Postado : 13/10/2015 7:16 am