Notifications
Clear all

Não salvar - MACRO

3 Posts
3 Usuários
0 Reactions
1,062 Visualizações
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

Olá,

Eu estou com uma planilha com vínculos em outras. Eu tive que criar uma macro q abre e fecha os vínculos pq estou usando a fórmula - SOMASES - e os valores só aparecem quando abro as planilhas bases.
Eu preciso abrir e fechar as planilhas, porém, algumas aparecem a opção de salvar ou não salvar. Como coloco para não salvar na macro?
Abaixo a macro atual:

Workbooks.Open Filename:= _
        "\LocalBrasil.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil2.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil3.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil4.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil5.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil6.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil7.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil8.xls"
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\LocalBrasil9.xls"
    ActiveWindow.Close
End Sub
 
Postado : 24/04/2018 1:56 pm
(@klarc28)
Posts: 971
Prominent Member
 
Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"\LocalBrasil.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil2.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil3.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil4.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil5.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil6.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil7.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil8.xls"
ActiveWindow.Close
Workbooks.Open Filename:= _
"\LocalBrasil9.xls"
ActiveWindow.Close

Application.DisplayAlerts = True
End Sub
 
Postado : 24/04/2018 2:02 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Por Exemplo:

Workbooks.Open Filename:= _
"\LocalBrasil.xls"
ThisWorkbook.Saved = True
ActiveWindow.Close

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 24/04/2018 2:12 pm