Excel vba planilha habilitar e desabilitar comandos comandbar

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

habilitando e desabilitando barras de ferramentas do aplicativo excel botão direito do mouse abas de planihas entre outros
veja o exemplo abaixo e veja a relação de barras de ferramentas que são habilitadas ou desabilitadas por comandos...
há macros para habilitar e desabilitar excel planilhas aplicativo
-----Mensagem original-----
De: [email protected] [mailto:[email protected]]
Enviada em: domingo, 5 de maio de 2013 13:57
Para: [email protected]
Assunto: Contato Equipe Saberexcel(BR)

Contato com Equipe Saberexcel
DUVÍDAS EXCEL.
Nome: Antonio xxxxxxx
E-mail: j.xxxxxxxxxr
Data Contato: 05.05.2013

'----------------------------------------'
Digite sua Mensagem:: Boa tarde!
Tenho uma macro no excel conforme abaixo e ela desabilita o botão direito do mouse e já aconteceu com todos que utilizam esta planilha.
Aí é preciso renomear o excel para excel.old
mas o problema retorna.
Não teria um procedimento de inserir na macro para o botão direito do mouse ficar sempre habilitado?
Sou cliente de voces ja comprei varios produtos.

Private Sub Workbook_Open()
Dim barras, NTela, cont
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False 'Antonio observe que o procedimente esta desabilitando totalmente suas barras de comando(CommandBARS)
Next

Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = True
Application.DisplayStatusBar = False
Application.ScreenUpdating = True
End Sub

Antecipadamente agradeço,

Antonio
‘/========================’

Prezado Antonio, boa tarde,
De fato o comando desabilita todos as Barras de Comandos 'ComandBar
é so voce passar para true essa linha de código e pronto..
ou fazer um macro para habilitar os commandos ..
'//==============='
barras.Enabled = false (desabilita e True habilita.)
'//==============='

Private Sub Workbook_Open()
Dim barras, NTela, cont
On Error Resume Next
'- - - - - - - - - - - - - - - - - - -'
'SO PASSAR PARA TRUE OU CRIAR UM MACRO PARA ISSO
For Each barras In Application.CommandBars
barras.Enabled = FALSE ' Desabilita todas as barras ComandBar de comando do Excel
barras.Enabled = TRUE ' Habilita todas as barras ComandBars de comando do Excel

Next

'//======
ou voce poderá fazer um macro para Habilitá-las enquanto trabalha
Sub hablita_comandos()
For Each barras In Application.CommandBars
barras.Enabled = TRUE
Next
End sub
o Correto é quando o seu usuário fechar o Excel voltar com as barras novamente veja abaixo

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True 'habilitar novamente as barras de comando(CommandBARS)
Next

Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
Application.DisplayStatusBar = True
Application.ScreenUpdating = True
End Sub

'//======
veja bem aproveito as dificuldades de muitos e inserí um macro (fiz um exemplo de planilha) para relacionar
as Barras da CommandBar que possam estar ocultas.

Sub sbx_habilita_comandos()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True 'habilitar barras de comando(CommandBARS)
Next
MsgBox ("Barras de Comandos 'CommandBars' HABILITADAS!!"), vbInformation, "Escola Saberexcel VBA Estudos®"
End Sub
Sub sbx_desabilita_comandos()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False 'habilitar barras de comando(CommandBARS)
Next
MsgBox ("Barras de Comandos 'CommandBars' desabilitadas"), vbCritical, "Escola Saberexcel VBA Estudos®"
End Sub

Sub sbx_listar_barras_de_comandos()
On Error Resume Next
MsgBox "vou criar uma nova planilha com a lista de:" & vbCrLf & _
       "COMANDOS HABILITADOS SIM OU NAO", vbInformation, "Escola Saberexcel VBA Estudos®"
With Sheets.Add
.Name = "Lista_ComandBars"
End With
Range("A1").Value = "Nome"
Range("B1").Value = "Índice"
Range("C1").Value = "DESABILITADO!"
Range("A1:C1").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    For Each bar In Application.CommandBars
      Range("A65536").End(xlUp).Offset(1, 0).Select
      ActiveCell.Value = bar.Name
      ActiveCell.Offset(0, 1).Select
      ActiveCell.Value = bar.Index
      ActiveCell.Offset(0, 1).Select

      If bar.false Then
         ActiveCell.Value = "NAO"
      Else
         ActiveCell.Value = "SIM"
      End If
Next bar
Range("A:C").Columns.AutoFit
[d1].Select
End Sub

Obrigado pelas suas aquisições e pelo contato.
Fique com Deus,

Expedito Marcondes.

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Baixe o exemplo de planilha contendo os macros e procedimentos acima.
Excel vba planilha habilitar e desabilitar comandos comandbar (44.27 KB)