• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

meerdere bestanden tegelijk afsluiten in Excel

Status
Niet open voor verdere reacties.
Probeer deze eens.
Eerst worden alle andere sheets gesloten en als laatste degene waar de macro in staat.

Code: 
Sub Macro1()
'
Dim wb As String
Dim i As Integer

i = Workbooks.Count

wb = ActiveWorkbook.Name

For i = 1 To Workbooks.Count
    If Workbooks(1).Name <> wb Then
        Workbooks(i).Close savechanges = False
    End If
Next i

ActiveWorkbook.Close savechanges = False
        

End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan