Auto afsluiten foutmelding

[Ron001]

Allen,

 

Het automatisch afsluiten van de file geeft een foutmelding bij ActiveWorkbook.Quit

File in bijlage...

 

Sub close_wb()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Quit

End Sub

 

PO planlijst TD Assen.xlsm

[alpha]

Vervang ActiveWorkbook.Quit door Application.Quit .

Opm: in ThisWotkbook staan macro's die daar niet thuis horen.

Plaats ook alles wat bij het saven en sluiten hoort, in 1 macro bij elkaar.

[Ron001]

@ Alpha

 

Application.Quit stond er , maar de andere gebruikers vonden dit lastig omdat dan alle openstaande Excel-files gesloten werden, daarom wil ik alleen ActiveWorkbook...

 

Voor de opm, heb ik vorige week wat aan het samenzetten geweest, maar toen werkte het afsluiten helemaal niet meer (daarom zo laten staan...)

Zal morgen nog eens proberen...

 

Alvast bedankt!