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

Application.Visible = False

 
2024 - VBA & Macros
Post Recente por Gesus 8 anos atrás
6 Posts
3 Usuários
0 Reactions
1,994 Visualizações
RSS
 Thassio
(@thassio)
Posts: 3
New Member
Topic starter
 

Gostaria de pedir sua ajuda se for possível é claro. Estou a mais de três dias procurando um solução para meu projeto VBA que fiz no excel, achei diversas coisas parecidas mas não o que preciso (talvez eu esteja procurando pelas palavras erradas), porém identifiquei que suas planilhas funcionam da forma que preciso. Segue dúvida.

Gostaria de deixar somente o userform do meu programa na tela do usuário, ou seja, utilizando o "applicaton.visible = False", porém caso o usuário necessite trabalhar em outra planilha ao mesmo tempo, no momento que abro qualquer outra planilha que esteja no computador a aplicação do excel fica ativa para todas. É possível deixar somente a aplicação do meu programa invisível? Vi que a planilha do site abaixo funciona dessa forma.

http://cpap.com.br/orlando/XLtoExeMore. ... rlMoreWin1

Antecipadamente agradeço

 
Postado : 22/09/2013 12:53 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente

Workbooks("NOmeDoArquivo").window(1).hidden = True 
Private Sub Workbook_Open()
  Application.ScreenUpdating = False
  Application.WindowState = xlMinimized
  UserForm1.Show 0
End Sub

Private Sub Workbook_Open()
ActiveWindow.WindowState = xlMinimized
Application.Visible = False
UserForm1.Show
End Sub

Leia:
http://stackoverflow.com/questions/1135 ... y-in-excel

Sou, eu , AlexandreVBA

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/09/2013 1:39 pm
 Thassio
(@thassio)
Posts: 3
New Member
Topic starter
 

Alexandre,

A 1ª opção não da certo, pois dá erro de " O objeto não aceita propriedade ou método".

A 2ª opção somente minimiza a janela.

A 3ª opção oculta somente a workbook, e não a aplicação do excel.

A 4ª opção li o fórum mas acho que não se aplica.

Abs

 
Postado : 23/09/2013 7:22 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

na primeira opção se digitar o nome o arquivo errado, não funcionará!!

Workbooks("Qual_É_o_Nome_Do_seu_arquivo?").window(1).hidden = True

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/09/2013 8:51 am
 Thassio
(@thassio)
Posts: 3
New Member
Topic starter
 

Coloquei o no correto.

 
Postado : 23/09/2013 9:26 am
 Gesus
(@gesus)
Posts: 44
Eminent Member
 

Tente o seguinte
Workbooks("NOME_DO_ARQUIVO").Windows(1).Visible = True

 
Postado : 05/04/2017 2:32 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico