Atualização Código - Desabilitar copiar, colar, arrastar, etc.

[fvmuller]

Pessoal, bom dia!

Gostaria de ajuda de vocês. Há uns 8 anos atrás, contei com a ajuda de um amigo, que fez um código no VBA-Excel, onde basicamente ele desabilitava os acessos aos botões de copiar, cola, arrastar célucas, etc.. quando aquela planilha era aberta. Havia uma macro com senha que habilitava estes comando ou eles eram habilitados quando a planilha era fechada. Funcionava perfeitamente.

Hoje, preciso fazer a mesma coisa em outra planilha, porém os mesmos códigos não funcionam no excel 2007. Alguém poderia me ajudar com essa atualização?

Abaixo segue o código antigo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'habilita atalhos.

Application.OnKey "^c" 'copiar

Application.OnKey "^x" 'recortar

Application.OnKey "^v" 'colar

'habilita botões da BF.

Application.CommandBars("Standard").Controls(10).Enabled = True 'recortar

Application.CommandBars("Standard").Controls(19).Enabled = True 'copiar

Application.CommandBars("Standard").Controls(12).Enabled = True 'colar

'habilita comandos do menu Editar.

Application.CommandBars(1).Controls(2).Enabled = True 'editar

Application.CommandBars(1).Controls(4).Enabled = True 'inserir

Application.CommandBars(1).Controls(5).Enabled = True 'formatar

Application.CommandBars(1).Controls(6).Enabled = True 'ferramentas

Application.CommandBars(1).Controls(7).Enabled = True 'dados

'habilita arraste de células.

Application.CellDragAndDrop = True

End Sub

Private Sub Workbook_Open()

'desabilita atalhos.

Application.OnKey "^c", "" 'copiar

Application.OnKey "^x", "" 'recortar

Application.OnKey "^v", "" 'colar

'desabilita botões da BF.

Application.CommandBars("Standard").Controls(10).Enabled = False 'recortar

Application.CommandBars("Standard").Controls(19).Enabled = False 'copiar

Application.CommandBars("Standard").Controls(12).Enabled = False 'colar

'desabilita comandos do menu Editar.

Application.CommandBars(1).Controls(2).Enabled = False 'editar

Application.CommandBars(1).Controls(4).Enabled = False 'inserir

Application.CommandBars(1).Controls(5).Enabled = False 'formatar

Application.CommandBars(1).Controls(6).Enabled = False 'ferramentas

Application.CommandBars(1).Controls(7).Enabled = False 'dados

'desabilita arraste de células.

Application.CellDragAndDrop = False

End Sub

'cancela o click do botão direito nas células.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _

ByVal Target As Range, Cancel As Boolean)

Cancel = True

End Sub

No formulário tínhamos, o seguinte código:

Private Sub CommandButton_ok_Click()

If TextBox_Senha.Text = "ln" Then

Application.CommandBars(1).Controls(2).Enabled = True 'editar

Application.CommandBars(1).Controls(4).Enabled = True 'inserir

Application.CommandBars(1).Controls(5).Enabled = True 'formatar

Application.CommandBars(1).Controls(6).Enabled = True 'ferramentas

Application.CommandBars(1).Controls(7).Enabled = True 'dados

Else

MsgBox "Senha Incorreta."

End If

Unload UserForm1

End Sub

Enfim, será que alguém poderia me ajudar com a atualização deste código ou sugestão de outro?

Agradeço muito!

Fábio

[zinhovba]

Boa noite!!

Tente...

http://www.vbaexpress.com/kb/getarticle.php?kb_id=373

[fvmuller]

Opa amigo, muito obrigado!

No entanto, testei o código, inclusive fiz o download do arquivo disponibilizado, e o código apenas desabilita os comandos quando realizados com clique no botão direito e pelo teclado. Ele não desabilita esses comando ali em cima na barra de ferramentas, na aba Início.

Você poderia me ajudar?

Agraço bastante!

Abs!

Fábio

[zinhovba]

Boa tarde!!

Porque não persolaliza um único arquivo (editar Ribbon), para esse fim?

http://www.rondebruin.nl/win/section2.htm

Att