Home Excel - Dicas Microsoft Excel VBA Excel VBA - Barras e Menus e Botoes Excel vba planilha habilitar e desabilitar comandos comandbar

Excel vba planilha habilitar e desabilitar comandos comandbar

E-mail Imprimir PDF

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.
icon Excel vba planilha habilitar e desabilitar comandos comandbar (44.27 KB)


Última atualização em Dom, 05 de Maio de 2013 15:40  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA