Este fórum está sendo desativado

[JeanHard]

Boa noite a todos.
Preciso de uma macro que feche todas as planilhas de uma determinada pasta. Sendo q a minha planilha nao esta nessa pasta e ira continuar aberta.
No aguardo e abraços.

[JeanHard]

Bom dia feras.
Alguma idéia que possa ajudar?

[alexandrevba]

Boa tarde!!

Tente algo assim:

Código: Selecionar todos

Sub AleVBA_1403()
Dim wb As Workbook
    Path = "c:\temp\" 'Aqui insira o caminho desejado
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            wb.SaveAs Filename:=Path & wb.Name, FileFormat:=51
           wb.Close False
        End If
    Next wb
    ThisWorkbook.Close False
End Sub

Att