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

Application.Visible = Flase somente para 1 Workbook

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,198 Visualizações
RSS
 finaljustice
(@finaljustice)
Posts: 91
Trusted Member
Topic starter
 

Boa noite,

Estou terminando um projeto e decidi restringir o accesso da pasta de trabalho para os usuários, sendo assim coloquei em "EstaPasta_de_Trabalho" o código:

Application.visible = False

Minha interface está funcionando sem problemas como esperado porém encontrei duas "dificuldades".
1) O usuário está restrito a usar SOMENTE minha interface e não consegue abrir outro workbook e usar em paralelo se for de seu interesse. Ele teria que fechar o arquivo antes de conseguir abrir a userform. Há como fazer com que somente o workbook seja escondido? Possibilitando a utilização de mais de um workbook aberto?

2) Para "mexer" no arquivo estou tendo que abrir um arquivo em branco, então acesso o VBA editor e so então abro o arquivo que esconde o excel... há uma maneira de fazer isso sem ser do modo que falei?

Obrigado,
FJ

 
Postado : 04/07/2013 4:18 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Use apesquisa do fórum!!
Quanto a sua 1° dúvida isso não resolve.

 
Workbooks("NomeArquivoAqui").window(1).hidden = True

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

 
Postado : 04/07/2013 5:57 pm
 finaljustice
(@finaljustice)
Posts: 91
Trusted Member
Topic starter
 

Boa noite!!

Use apesquisa do fórum!!
Quanto a sua 1° dúvida isso não resolve.

 
Workbooks("NomeArquivoAqui").window(1).hidden = True

Boa tarde,

Obrigado pela resposta, mas eu procurei e não encontrei um post que trata dessa troca de pagina, embora eu saiba que é muito procurada a ajuda ao se tratar de esconder o Excel.

Troquei o 

Application.visible = false

por seu código e nada acontece... a userform é aberta e o excel continua funcionando atrás.

Alguma outra sugestão?
Att,

FJ

 
Postado : 05/07/2013 11:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Você tentou dentro do evento inicializar do UserForm??

Private Sub UserForm_Initialize()
Set newBook = Workbooks.Open(NomeArquivo)
 With newBook
 Windows(NomeArquivo).Visible = False
 End With
End Sub

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

 
Postado : 05/07/2013 4:14 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico