Notifications
Clear all

Maximizar -Minimizar

14 Posts
1 Usuários
0 Reactions
10.2 K Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou usando um Form em uma planilha e coloquei o código:

Private Sub cmdChamar_Click()
ActiveWindow.WindowState = xlMinimized 'minimiza a planilha "Resumo" - Arquivo1
frmCopia.Show ' chama o form
End Sub

só que se tiver uma outra planilha Arquivo2 aberta, dá erro porque minimiza a "Resumo" e deixa a "outra " ativa.
tentei trocar o ActiveWindow por outras coisas como workbook, worksheets mas não deu;
o que devo fazer?

 
Postado : 21/04/2012 3:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Acho que posso está errado, ou eu não entendi, mas eu testei e foi normal...

 
Postado : 21/04/2012 4:52 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Abre esse exemplo , ativa macro , abre um outro arquivo , (não pode ser clicando no icone do excel ; assim funciona) e clica no botão show.
Quando clica no show , este arquivo minimiza , mas o "outro " fica ativo com meia janela ; como o form busca dados na plan Teste e, copia e cola na mesma e o arquivo que vc abriu e ficará ativo não tem uma plan de nome Teste, ele não vai achar a plan e dar a msgbox "Não Localizado" e depois dar a msg de sistema Erro em tempo de execução '1004: O metodo select da classe range falhou,

Agora acho que dá pra entender melhor.

O objetivo final disto é:
tenho uma plan onde tem um código em um userform que abre várias guias que estão ocultas e faz várias alteraçoes copiando dados ,formulas e etc e não quero que o usuario veja nada do que está acontecendo, ficando visivel a ele somente o userform.

 
Postado : 22/04/2012 7:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tentei o application visible = false ; esse dá beleza . Massssss se clicar fora do form; como o excel está invisivel; para voltar para o excel, só com Alt+Tab e não seria legal. Mas se houver uma maneira de bloquear para não se conseguir clicar em nada fora do form ou com Alt+Tab , ou seja uma vez ativado o form somente após fecha-lo se conseguir fazer alguma coisa ficaria muito legal.

Testei uma outra coisa que resolveria meu problema , que foi maximizar o form cobrindo toda a area de trabalho, mas alem dos imputbox e combobox do form ficarem descentralizados quando se maximiza o form , ficando assim com aparencia horrivel; como na empresa usamos 2 monitores e quando se abre um excel com form ,fica o excel em um monitor e o form em outro então tambem não daria.

 
Postado : 22/04/2012 1:29 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

claudinei Não Sei se entendi,
mais substitua o código:

ActiveWindow.WindowState = xlMinimized

por:

With ActiveWindow
    .WindowState = xlMinimized
End With

Faça o teste e retorne com o resultado.

Abraço.

 
Postado : 22/04/2012 1:58 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

não deu não, a "outra" plan não minimizou e deu o mesmo erro

 
Postado : 22/04/2012 2:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

se não for muito dificil a application visible seria melhor.

Séra que preciso abrir outro tópico?

 
Postado : 22/04/2012 2:11 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

vc colocou no lugar da macro do botão form da plan?

 
Postado : 22/04/2012 2:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ficaria assim no botão do form

Sub Botão2_Clique()
With ActiveWindow
    .WindowState = xlMinimized
End With
UserForm2.Show
End Sub

Abraço.

 
Postado : 22/04/2012 2:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

exatamente issso que fiz

 
Postado : 22/04/2012 2:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

com essa plan que tem o form aberta , abre uma outra , mas não pode ser no botão do excel , para não abrir 2 application , porq ai dá certo

 
Postado : 22/04/2012 2:25 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estranho,
Aqui funcionou normal, abri outra pasta e msmo assim ele localizou da pasta Autocomplementar.

Posta aqui o codigo do modulo1 da sua pasta.
Abraço.

 
Postado : 22/04/2012 2:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

se puder faz o seguinte , me add no msn
[email protected]

 
Postado : 22/04/2012 2:46 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

na verdade o arquivo postado antes era só exemplo o verdadeiro é este , clica no botão inserir_Planilha que verá o erro

 
Postado : 22/04/2012 2:49 pm