[devcon]

Τάσο καλημέρα,

Και χωρίς να απενεργοποιήσω το “PERSONAL.XLSB” χρησιμοποιώντας ένα νέο module με την μακρό-εντολή «test» το πρόγραμμα κλείνει κανονικά.
Δεν μπορώ να καταλάβω πού είναι το λάθος μου.

Sub test
   Dim wb As WorkBook
   For Each wb In Application.Workbooks
        wb.Saved = True
    Next
    Application.Quit
End sub

Δοκίμασα αλλά όχι πολύ επισταμένα τον κώδικα που μου έστειλες αλλά χρειάζεται αρκετό ψάξιμο. Πάντως και με αυτό τον κώδικα το πρόγραμμα του Excel δεν κλείνει και δίνει σφάλμα.

Ευχαριστώ
Θανάσης