Automatisch opslaan bij afsluiten document

[Norisk]

Beste,

is het mogelijk om een excel document middels bv een macro automatisch te laten opslaan wanneer het document afgesloten wordt ?

Bijvoorbaad dank!!

Bart

 

[Ad Becude]

Met een knoppie

Sub Knop6_BijKlikken()
ActiveWorkbook.Save
Application.Quit
End Sub

 

[Norisk]

Bedankt ad,

echter sluit hij alle openstaande excel bestanden..

heb je hier toevallig de oplossing tot?

 

[HSV]

In Thisworkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.Close True
End Sub

 

[Norisk]

Harry,

nu sluit hij idd het document ( krijg hem overigens niet meer gevonden bij macro's ? staat alleen in vba..)
maar hij slaat hem niet op ..

 

[HSV]

Was het bestand tevoren al opgeslagen op de Pc in een map?

 

[Norisk]

ja idd

Bestand was reeds opgeslagen

met vriendelijke groet,

Bart

 

[HSV]

Dan werkt de code feilloos.
Heb je de code in Thisworkbook gezet?

Wat de code doet:
Sluit het bestand, met savechange = True (bestand wordt opgeslagen).

 

[Norisk]

dat is het probleem..

 

[HSV]

Het probleem is:
Je hebt de code niet in Thisworkbook.
Je verzint er zelf wat code bij.