none
Barra de ferramentas num userform RRS feed

  • Pergunta

  • Sou iniciante em VBA e estou criando um aplicativo. A idéia é que o usuário não enxergue a planilha do excel e para isto penso em colocar uma barra de ferramentas nos userforms do aplicativo. Como posso fazer?
    segunda-feira, 11 de agosto de 2014 23:00

Respostas

  • Olá alobahiense!


    Estive fazendo alguns testes no excel 2010 que tem comportamentos diferentes. Segue abaixo um código para omitir os menus e barras de ferramentas (infelizmente este código não funcionou quando eu minimizei e maximizei a aplicação, fica no fórum a dúvida de como resolver isso):

    Private Sub Workbook_Open()
        Dim barras
        For Each barras In Application.CommandBars
            barras.Enabled = False
        Next
        Application.DisplayFullScreen = True
        ActiveWindow.DisplayHeadings = False
        Application.DisplayFormulaBar = False
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
        ActiveWindow.DisplayWorkbookTabs = False
    End Sub


    Agora, se o usuário não puder ver absolutamente nada (como se fosse um aplicativo) a situação fica um pouco mais fácil.

    Private Sub Workbook_Open()
        Application.Visible = False
        UserForm1.Show
    End Sub
    
    Private Sub UserForm_Terminate()
        ActiveWorkbook.Close False
    End Sub

    O problema desta implementação é que o excel inteiro do usuário fica invisível (inclusive outras planilhas que ele abrir).

    Não sei se consegui resolver o seu problema mas espero ter te dado uma orientação de onde prosseguir com seu trabalho.

    Grande abraço

    Bráulio Figueiredo

    braulio@braulioti.com.br - http://www.braulioti.com.br



    terça-feira, 12 de agosto de 2014 02:26