Na open Sub Workbook deze opslaan en sluiten bij afsluiten hoofdbestand?

[malibuman]

Private Sub Workbook_Open()

 Workbooks.Open Filename:="C:\Mijn Documenten\mijndatabase.xlsx", Origin:=xlWindows

End Sub

Best mensen,

Hoe krijg ik nu het tweede geopende bestand weer automatisch gesloten na afsluiten hoofdbestand (met opslaan aub)

Alvast bedankt

 

[Cobbe]

[
Zo misschien? niet getest!!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts =False 
Workbooks.Close Filename:="mijndatabase.xlsx"
 End Sub

 

[snb]

Maak er een werkruimte van....

 

[malibuman]

@ cobbe code werkt helaas niet
@ snb : Werkruimte? Daar snap ik (nog) niks van helaas.

 

[malibuman]

Niemand een oplossing voor mij?
Wacht nog even anders sluit ik deze topic maar