met kruisje in userform heel excel sluiten

[hellboy01]

Hi,
Is het mogelijk om via het sluit kruisje van een userform heel excel op te slaan en te sluiten?
alvast bedankt.

 

[edmoor]

Yep. Met dit achter de Userform:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Save
    Application.Quit
End Sub

Eventueel een loopje gebruiken om alle open Workbooks op te slaan.

 

[hellboy01]

Hi Edmoore, het werkt perfect. Heb je dat loopje er misschien ook bij. ik kan wel iets met een for next maar workbooks benaderen kan ik nog niet.

 

[hellboy01]

Wauw ik zie dat ik al meer dan 10 jaar lid ben van de club ;-)

 

[edmoor]

Zoiets:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    For Each wb in Workbooks
         wb.Save
    Next wb
    Application.Quit
End Sub

 

[edmoor]

Wauw ik zie dat ik al meer dan 10 jaar lid ben van de club ;-)

Broekie!

 

[hellboy01]

Hi Edmoore, bedankt voor de snelle service, het werkt weer perfect.

 

[hellboy01]

Ik kan ook nog nauwelijks programmeren na 10 jaar ;-)

 

[snb]

Die van Ed gaan mij ook volkomen boven de pet (ben ook maar pas sinds 2008 hier).

 

[edmoor]

Grapje van je neem ik aan? :shocked: