Notifications
Clear all

Minimizar e maximizar tela arquivo em excel

4 Posts
3 Usuários
0 Reactions
4,809 Visualizações
(@ramalho)
Posts: 18
Active Member
Topic starter
 

Senhores,
Tudo bem?

Qual é a macro que posso utilizar para minimizar um arquivo em excel específico aberto e maximizá-lo novamente, reforço que tem ser para o arquivo específico, porque caso tenha outros arquivos abertos não interfira.

Francisco Ramalho

 
Postado : 12/07/2013 2:42 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Francisco,

Boa Noite!

Seria mais ou menos isso, para minimizar e maximizar:

Sub Minimizar()
    Dim wkb As Workbook
    For Each wkb In Workbooks
        If wkb.Name = ThisWorkbook.Name Then ActiveWindow.WindowState = xlMinimized
    Next
End Sub
Sub Maximizar()
    Dim wkb As Workbook
    For Each wkb In Workbooks
        If wkb.Name = ThisWorkbook.Name Then ActiveWindow.WindowState = xlMaximized
    Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 12/07/2013 5:54 pm
(@ramalho)
Posts: 18
Active Member
Topic starter
 

Senhores,

Ainda não consegui resolver este problema, caso eu tenha 2 planilhas em excel abertas ao mesmo tempo não estou conseguindo encontrar uma macro para que apenas feche a planilha específica que estou trabalhando.

Obrigado.

FRANCISCO RAMALHO

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

Boa noite!!

Tente adaptar

Sub Teste()
    Dim xl0 As New Excel.Application
    xl0.Visible = False
    xl0.Workbooks.Open "C:SeuArquivo.xls"
    xl0.WindowState = xlMinimized
    xl0.Visible = True
End Sub
Sub Test_II()
Application.ScreenUpdating = False
    Workbooks.Open "C:/Database/SeuArquivo.xls"
    ActiveWindow.WindowState = xlMinimized
Application.ScreenUpdating = True
End Sub

Agora se nada do que foi postado resolver, poste seu arquivo compactado, para que o pessoal possa ajuda-lo!!

Att

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

 
Postado : 30/08/2013 5:14 pm