Home Excel - Downloads / Areas Restritas Excel VBA - Barras e Menus e Botões

Excel VBA - Barras e Menus e Botões

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba comandbars desabilitar e  habilitar Excel vba comandbars desabilitar e habilitar

    popular!
    Adicionado em: 29/03/2013
    Modificado em: 29/03/2013
    Tamanho: Vazio
    Downloads: 2684

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

    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,


    '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


    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 planiha contendo os macros acima:

    Excel vba planilha oculta e repoe faixa de opcoes Excel vba planilha oculta e repoe faixa de opcoes

    popular!
    Adicionado em: 12/02/2012
    Modificado em: 12/02/2012
    Tamanho: Vazio
    Downloads: 2117

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

    Esses macros do aplicativo Microsoft Excel VBA(visual Basic Application) ocultam ou e repõem as barras de menus ( Faixa de Opções ) excel 2007 - 2010. Baixe o exemplo de planiha no final da página. Fique com Deus. Expedito Marcondes.
    ' - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sbx_repor_faixa_de_opcoes()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    [d11].Value = "Faixa de Opções (Menus) I-N-S-E-R-I-D-A-"
    End Sub

    Sub sbx_retirar_faixa_opcoes()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    [d11].Value = "Faixa de Opções (Menus) - R-E-T-I-R-A-D-A-"
    End Sub

    ' - - - - - - - - - - - - - - - - - - - - - - - - - - - -'




    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.



    :

    vba barra de ferramentas insere barra ferramenta personalizada vba barra de ferramentas insere barra ferramenta personalizada

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 17/11/2010
    Tamanho: Vazio
    Downloads: 1770

    Essas macros do Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --, inserem uma barra de ferramenta personalizada com combobox agregado à barra, essa macro que poderá resolver seu problema ela insere essa barra com o combobox na barra, e chama algumas macros através dos botões inseridos

    Option Explicit

    Sub Barra_Eves_Personalizada()

    On Error Resume Next
    CommandBars("XL-Eves®").Delete
    On Error GoTo 0

    With CommandBars.Add(Name:="XL-Eves®")
    With .Controls.Add(Type:=msoControlButton)
    .Caption = "XL-Eves®"
    .OnAction = "msg"
    .FaceId = 343
    .TooltipText = "Aprender VBA (XL-Eves®)"
    End With

    With .Controls.Add(Type:=msoControlPopup)
    .Caption = "Menu"
    .TooltipText = "Inserir ordem crescente e decrescente"
    With .Controls.Add(Type:=msoControlButton)
    .Caption = "Ordem Crescente"
    .FaceId = 210
    .OnAction = "crescente"
    End With

    With .Controls.Add(Type:=msoControlButton)
    .Caption = "Ordem Decrescente"
    .FaceId = 211
    .OnAction = "decrescente"
    End With

    With .Controls.Add(Type:=msoControlButton)
    .Caption = "Deletar_barra"
    .FaceId = 507
    .OnAction = "deletar_barra"
    End With

    End With

    With .Controls.Add(msoControlDropdown)
    .AddItem "AA"
    .AddItem "BB"
    .AddItem "CC"
    .OnAction = "msg"
    .TooltipText = "testes com barras"
    End With

    .Position = msoBarTop
    .Visible = True
    End With
    End Sub

    Sub msg()
    MsgBox "Aprenda excel vba, Esforce-se! ", vbInformation, "XL-Eves®"
    End Sub

    Sub crescente()
    MsgBox ("Ordem Crescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
    End Sub

    Sub decrescente()
    MsgBox ("Ordem Decrescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
    End Sub

    Sub deletar_barra()
    CommandBars("XL-Eves®").Delete
    End Sub

    'inserir no módulo workbook

    Option Explicit

    Private Sub Workbook_Open()
    Call Barra_Eves_Personalizada
    End Sub

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("XL-Eves®").Delete
    End Sub


    Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --




    vba botoes icon insere faceids limitados em planilha valores celula vba botoes icon insere faceids limitados em planilha valores celula

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 17/11/2010
    Tamanho: Vazio
    Downloads: 1845

    SaberExcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, insere em uma outra folha de planilha os FaceID, que são icones do Excel, baseados em um intervalo de números representados pelos valores de duas células na folha de planilha, número inicial e número final, ou seja, FACEID's. de 123 à 876,
    a macro lê os valores e insere números e referencias de FaceIDs na folha de Planilha.

    [email protected]

    Option Explicit

    Sub Criar_Botoes_ID()
    Dim x1 As Integer
    Dim x2 As Integer
    Dim i As Integer
    Dim Titulo As String
    Dim Ident As Integer

    On Error Resume Next

    x1 = Range("ini").Value
    x2 = Range("fim").Value

    If x2 < x1 Then x2 = x1

    Call EliminarFiguras

    Sheets("Botões").Select

    Range("A1").Value = "ID"
    Range("B1").Value = "Figura"
    Range("C1").Value = "Descrição"
    Range("B1").Select

    Application.CommandBars.Add(Name:="temp").Visible = False

    For i = x1 To x2
    With Application.CommandBars("temp")
    .Controls.Add Type:=msoControlButton, ID:=i, Before:=1

    If .Controls.Count > 0 Then
    Titulo = .Controls(1).Caption
    Ident = .Controls(1).ID

    If Titulo > "" Then
    .Controls(1).CopyFace
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Offset(0, -1).Value = Ident
    ActiveCell.Offset(0, 1).Value = Titulo
    ActiveSheet.PasteSpecial

    .Controls(1).Delete
    End If

    End If

    End With
    Next i
    Application.CommandBars("temp").Delete

    Range("B1").Select

    Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False

    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel







    Publicidade
    Compre com segurança, garantia, ótimos preços nas lojas submarino


    Informática - Submarino.com.br

    vba menu contextual insere menu clicar botao direito mouse vba menu contextual insere menu clicar botao direito mouse

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 26/02/2011
    Tamanho: Vazio
    Downloads: 1325

    Saberexcel - site das macros

    Esse procedimento do Aplicativo Microsoft Excel VBA, contém procedimento no modulo de planilha
    worksheet usando o Evento BeforeRightClick, clicar com o botao direito do mouse, insere um menu
    contextual no range definido B1: B10 cria um botão ligado a uma determinada macro clicar somente
    nesta região com o botão direito do mouse

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean)

    For Each vSaber In Application.CommandBars("cell").Controls
    If vSaber.Tag = "sbx" Then vSaber.Delete
    Next vSaber

    If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then
    With Application.CommandBars("cell").Controls _
    .Add(Type:=msoControlButton, before:=6, _
    temporary:=True)
    .Caption = "SaberExcel B1:B10"
    .OnAction = "Minha_Macro"
    .Tag = "sbx"
    .FaceId = 261
    End With
    End If
    End Sub

    '
    'Atenção! Esta macro para ser encontrada deve ser inserido no módulo Simples
    Sub Minha_Macro()
    MsgBox ("Este Menu somente é inserido ao clicar na range B1:B10"), vbInformation, ":::Saber Excel.com:::"
    End Sub
    '
    'Esta macro reseta menus personalizados no cell botão direito do mouse
    Sub Reseta__Botoes_Personalizados_Direito_Mouse()
    Application.CommandBars("Cell").Reset
    End Sub

    Aprenda Microsoft Excel VBA -- Saberexcel - o site das macros




    Baixe o exemplo de Planilha com os procedimentos acima


    Página 1 de 2

    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