Afsluiten en wegsaven

[apikills]

Graag zou ik in VBA willen dat wanneer men het Excel-document afsluit, altijd de vraag wordt gesteld of men wil wegsaven en uiteraard bij 'ja' dat dit dan ook gebeurd op de originele lokatie. Wie kan mij helpen aan de code

Alvast bedankt,

apikills

 

[Demeter]

Dit gebeurt toch altijd al?
Of wil je een vba-knop maken waarmee je kan saven en een custom popup krijgt?


Groet,
Ferenc

ps.

Sub Save()
    Application.GetSaveAsFilename
end sub

 

[richard1970]

Beste apikills,

Ga via Alt+F11 naar VBA en dubbelklik links op ThisWorkbook. Kies linksboven Workbook, en rechtsboven Beforeclose
Zet in de code neer:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Moet het bestand opgeslagen worden?", vbYesNo, "Afsluiten?") = vbYes Then
ActiveWorkbook.Save
Else
End If
End Sub

Groeten,

Richard