Notifications
Clear all

Fechamento arquivo excel sem afetar outros

3 Posts
1 Usuários
0 Reactions
888 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá amigos. Tenho o seguinte código pra fechamento de determinado arquivo:
------------------------------------------------
Sub AUTO_CLOSE1()

Application.ScreenUpdating = False
ActiveWorkbook.Save
With Application
.Caption = "Excel" 'Não esquecer deste detalhe
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With

Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Dim cBar1 As CommandBar
For Each cBar1 In Application.CommandBars
If cBar1.Enabled = False Then
cBar1.Enabled = True
End If
Next
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
Application.Quit
ActiveWorkbook.Close

End Sub
-----------------------------------------------------

Ocorre que, qdo clico no botão que aciona essa macro, se houver outros arquivos em excel abertos, todos eles são fechados. Tem como eu inserir algo neste código que, uma vez acionado o botão, apenas esse arquivo fecha, sem afetar os outros abertos?

Agradeço a atenção. Abraços.

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

 
Postado : 14/10/2011 1:56 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Apague esta linha:

Application.Quit

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

 
Postado : 14/10/2011 5:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Simples assim !..rs.. Muito obrigado, Edson. Exatamente isso. Grande abraço !

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

 
Postado : 17/10/2011 8:29 am