Notifications
Clear all

Iniciar direto no Formulario de acesso

7 Posts
3 Usuários
0 Reactions
1,624 Visualizações
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Boa noite ,
Uso uma planilha para controle financeiro , porem a mesma tenho um probleminha , Quando inicio a mesma gostaria que ela não mostrasse nada antes do que tem na planilha , ja abrisse direto no formulario . Pois o codigo abaixo ja indica isso NO MEU MODO DE VER , porem deve ta faltando algum codigo ai . Pesquisei no forum e vi algumas coisas parecidas , porem não consegui coletar informação para adaptar na minha . Se alguem puder ajudar ficarei grato .
Obrigado .
segue codigo que uso :

Option Explicit
Private Sub Workbook_Open()
Application.Visible = False

Application.ExecuteExcel4Macro " show.toolbar(""ribbon"",false)"
Dim barras, nTela, Cont
On Error Resume Next
 
    For Each barras In Application.CommandBars
        barras.Enabled = False
    Next
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayStatusBar = True



'bloqueia teclas de atalho CTRL +
Application.OnKey "^p", "" '
Application.OnKey "^j", "" '
Application.OnKey "^v", "" '
Application.OnKey "^c", "" '
'_____________________________________________________________
'COMBINAÇÃO ALT +
Application.OnKey "%{F11}", ""



'_____________________________________________________________
acesso.Show


End Sub

******* Observação :
Os códio obedecem sim, o Excel fica invisível, e logo após chama o formulário acesso.
O poblema é que antes dele ficar invisivel ele mostra a informações . Gostaria que qndo eu clicasse em abrir o excel ja fosse bem direto no Formulario Acesso .

 
Postado : 01/05/2018 8:03 pm
(@klarc28)
Posts: 971
Prominent Member
 
Option Explicit
Private Sub Workbook_Open()
Application.Visible = False
acesso.Show

Application.ExecuteExcel4Macro " show.toolbar(""ribbon"",false)"
Dim barras, nTela, Cont
On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = True



'bloqueia teclas de atalho CTRL +
Application.OnKey "^p", "" '
Application.OnKey "^j", "" '
Application.OnKey "^v", "" '
Application.OnKey "^c", "" '
'_____________________________________________________________
'COMBINAÇÃO ALT +
Application.OnKey "%{F11}", ""



'_____________________________________________________________



End Sub
 
Postado : 01/05/2018 9:09 pm
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Bom dia Clarc ,

Valew , mais mesmo cmando o acesso como vc colocou primeiro ele fica tipo processando para abrir o formulario , complicado viu mano .

Mas de boa , de qualquer forma obrigado ..

ele em vez de ocultar o excel ele processa essa parte ai ... dai depois que ele coloca o excel invisivel e chama o formulario que no caso é ACESSO ...

SEGUE MODELO DE COO FICA :

 
Postado : 01/05/2018 9:35 pm
(@klarc28)
Posts: 971
Prominent Member
 

Exemplo no arquivo anexo

 
Postado : 02/05/2018 4:36 am
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Boa noite !

klarc28 , vou da uma olhada , assim que eu tiver resposta te aviso .

vlew..

 
Postado : 02/05/2018 3:05 pm
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Boa noite . fiz desta maneira , porem creio que devido a planilha esta com muitos dados ela fica processando . dai que vai pro formulario . mais de todo jeito muito obrigado .

Vou tentar mais , qualquer coisa entro em contacto .

vlew

 
Postado : 05/05/2018 4:07 pm
(@moveletro)
Posts: 1
New Member
 

Exemplo no arquivo anexo

Boa noite
Desenvolvi um assistente no qual vc poderá ocultar as guias através de xml. Essa ferramenta foi desenvolvida em access 2010 e opera em 32 bits é compativel com excel,access,word etc... Através dele fiz umas modificações no seu arquivo, tipo ocultei as faixas de opções o menu Backstage. Lembrando que não precisa ter conhecimentos com xml, apesar de ser uma ferramenta robusta, vc cria os botões,controles, personaliza guias etc... com facilidade.

 
Postado : 11/05/2018 8:23 pm