Notifications
Clear all

DESABILITAR MENU NO EXCEL

3 Posts
3 Usuários
0 Reactions
1,052 Visualizações
(@junin-lima)
Posts: 4
New Member
Topic starter
 

Bom dia galera,

Baixei um planilha excel VBA de menu para ver se eu compreendia os codigos e montar um meu para o meu projeto. O modelo nao era o que eu queria entao deletei do PC, porem a opçao de clicar com o botao direito do mouse no excel nao aparece as funçoes: EXCLUIR LINHAS, INCLUIR LINHAS ETC.. aparece as tela de atalho de menu da tal planilha como faço para desabilitar isso ja tentei de tudo e nao consegui.

SEGUE IMAGEM EM ANEXO E UMA PLANILHA SIMPLES CASO QUEIRA TESTAR.

 
Postado : 01/11/2013 5:10 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Junin Lima,

Bom Dia!

A planilha teste que você enviou não serve para testar, pois o comando da macro foi executado no seu micro. Para saber o que essa macro fez no seu micro, o ideal era você nos enviar a planilha que provocou isso, pois aí saberíamos o código que criou os menus personalizados e poderíamos fazer a reversão em cima disso.

Sem saber isso, no entanto, abaixo, segue um código que desfaz a criação de menus personalizados. Obviamente, você deve adaptar à sua necessidade e executá-lo.

Sub ExcluirMenuPersonalizado()
    For Each Con In Application.CommandBars("Worksheet menu bar").Controls
    If Con.Caption = "CADASTRO" Then
        Con.Delete
    End If
    Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 01/11/2013 7:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Contribuindo: A primeira retorna ao default o menu de contexto do Excel

Sub ResetCells()
Application.CommandBars("Cell").Reset
End Sub

Ou: Esta deleta as barra que não sejam nativa do excel

Sub delNaoBuitin()
    For Each info In Application.CommandBars
        If Not info.BuiltIn Then
            MsgBox "Barra não e nativa do excel: " & info.Name
        'Se desejar deleter a barra use:
            'info.Delete
        End If
    Next
End Sub

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

 
Postado : 01/11/2013 8:39 am