Ciao,
vorrei scrivere una macro che esegua il contrario di questa:

Sub Apri_TUTTIfile_Cartella()
Dim MyFolder As String
Dim MyFile As String

MyFolder = "C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1"
MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
MyFile = Dir
Loop
End Sub

(rif: QUESTO thread)

In pratica non so come scrivere correttamente il codice di chiusura dei file SENZA salvare le modifiche. A intuito si dovrebbe sostituire
nel codice
Workbooks.Open Filename:=MyFolder & "\" & MyFile
un'istruzione di tipo
Close savechanges:=False
ma non è corretto... [Errore di sintassi]
(sono ignorante assai in VBa, vero??)

Grazie assai, buona giornata
eZio

salve
prova con questa:

Sub ChiudiTutti()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name Then
wb.Close savechanges:=False
End If
Next wb
End Sub

saluti
Giap

---

salve
con qualcosa di simile:

Option Compare Text
Sub ChiudiTutti()
Dim wb As Workbook
miapath = "C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1"
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name And wb.Path = miapath Then
wb.Close savechanges:=False
End If
Next wb
End Sub
saluti
Giap

---