Descricao: |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
![](/images/stories/excel/linazul.jpg) Esses macros do aplicativo Microsoft Excel sVBA hatilita e ou desabilita comandos do aplicativo Excel, como teclas Alt + F11, acesso ao VBA, e Alt F8 (Gravar Macros), como também a lista suspensa da aba de planilha desabilitar e habilita e botão direito do mouse desabilitando e habilitando a lista menu suspensa ao clicar com o botão direito do Mouse célula na folha de planilha. Esses comandos geralmente deixa o usuario muito irritado, pois desabilita de forma definitiva, tem que usar o macro para habilitá-los novamente,
![](/images/stories/inseto.gif)
'rotina para habilitar e ou desabilitar comandos (true /false) Sub sbxBARRASCOMANDOS(ByVal sbxB As Boolean) ' Dim cmbBar As CommandBars Dim i As Integer sbx_limpar_teste Set cmbBar = Application.CommandBars For i = 1 To Application.CommandBars.Count cmbBar(i).Enabled = sbxB Cells(i, "a").End(xlUp).Offset(1, 0).Value = cmbBar(i).Name Next i End Sub
Sub sbx_desabilitar_comandos_teclas() Dim i As Long Application.OnKey "%{F11}", "" 'acesso ao vba Application.OnKey "%{F8}", "" Call sbxBARRASCOMANDOS(False) 'Worksheets("F").ScrollArea = "A2:J56" MsgBox "(Comandos desabilitados)", vbCritical, "Escola Saberexcel VBA Estudos®" Application.WindowState = xlMaximized For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row Cells(i, "b").Font.ColorIndex = 3 Cells(i, "a").Offset(0, 1).Value = "DESABILITADA" Next i End Sub
Sub sbx_habilitar_comandos_e_teclas() Application.OnKey "%{F11}" 'habilitar tecla f11 Application.OnKey "%{F8}" 'habilitar tecla F8 Call sbxBARRASCOMANDOS(True) MsgBox "(Comandos HABILITADOS)", vbInformation, "Escola Saberexcel VBA Estudos®" Application.WindowState = xlMaximized
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row Cells(i, "b").Font.ColorIndex = 10 Cells(i, "a").Offset(0, 1).Value = "[HABILITADA]" Next i
End Sub
Sub sbx_limpar_teste() tInicio = 2 zFim = Cells(Rows.Count, "a").End(xlUp).Row Range(Cells(tInicio, 1), Cells(zFim, 2)).Clear End Sub
![](/images/stories/excel/linazul.jpg) 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.
![](/images/stories/jm_produtos.jpg)
Baixe o exemplo de planiha contendo os macros acima:
|