Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Comando Application...
 
Notifications
Clear all

Comando Application.Visible = False

 
2024 - VBA & Macros
Post Recente por Romanha 8 anos atrás
5 Posts
2 Usuários
0 Reactions
1,163 Visualizações
RSS
 Romanha
(@romanha)
Posts: 0
New Member
Topic starter
 

Prezados, bom dia, boa tarde e boa noite!

Criei um programa em VBA para controle de documentos aqui para minha empresa, criei as telas para inserir os dados necessários e utilizei o comando Application.Visible = False que serve para esconder a planilha Excel e disponibilizei o programa na rede para uso dos demais colaboradores da empresa entretanto eu já sabia que ao abrir o programa por causa do comando Application.Visible = False as planilhas que estivesse abertas iam fica ocultas.... Ai vem a pergunta é possível usar o programa e outra planilha Excel?

Utilizei o comando assim quando abre!

Private Sub Workbook_Open()
Application.Visible = False

UF_MENU.Show

End Sub

Quando fecha!

Private Sub bt_sair_Click()
resposta = MsgBox("Deseja Realmente Sair?", vbYesNo, "Cadastro")
If resposta = vbYes Then
Application.Visible = True

Application.Quit

Else
   Exit Sub
    
End If

End Sub

desde já agradeço a ajuda!

 
Postado : 20/02/2017 5:53 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Romanha,

Tenta utilizar assim para ocultar apenas a planilha atual:

Application.Windows(ThisWorkbook.Name).Visible = True

E assim para fechar apenas a planilha atual:

Application.Windows(ThisWorkbook.Name).Close

Qualquer coisa da o grito.
Abraço

 
Postado : 20/02/2017 6:20 am
 Romanha
(@romanha)
Posts: 0
New Member
Topic starter
 

bom dia, Bernardo!

Então este comando apenas esconde o que está cadastrado na planilha, eu quero um comando que esconde a interface do Excel de apenas abra as telas feitas nos UserForm, e que quando abrir o programa junto com outra planilha não esconda esta tambem.

 
Postado : 20/02/2017 6:36 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 
    If Application.Windows.Count > 1 Then
        Application.Windows(ThisWorkbook.Name).Visible = False
    Else
        Application.Visible = False
    End If

Qualquer coisa da o grito.
Abraço

 
Postado : 20/02/2017 6:58 am
 Romanha
(@romanha)
Posts: 0
New Member
Topic starter
 

Bernado NNNNNIIIIINNNNJJJJAAAAAA!!!!!

Muito Obrigado cara muito PRO!! valeu

 
Postado : 20/02/2017 7:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico