Code voor het sluiten van een andere workbook

[Dashel]

Hallo beste mensen,

wanneer ik een excel bestand open zorg ik er via onderstaande code voor dat er ook een ander bestand geopend wordt.

Nu wil ik dat het andere bestand ook gesloten wordt wanneer ik mijn "hoofd"bestand sluit.

Welke code kan ik hiervoor gebruiken? ik probeerde Close maar dat werkt niet.

Iemand raad?

Private Sub WorkBook_Open()

Workbooks.Open Filename:="G:\Yep\Yep1\Yep2\YepYep.xls"

 

[Dashel]

Gelukt!

Wat een beetje uitproberen wel niet kan doen!

Dashel

 

[Rommyke]

Hoi Dashel ,

Heb je al eens met onderstaande codes geprobeerd ?

      Application.DisplayAlerts = False
      Application.Quit

Groetjes
Romain

 

[huijb]

Wat een beetje uitproberen wel niet kan doen!

Dashel

Ik begrijp dat het gelukt is. Zou je dan misschien hier de oplossing willen plaatsen, zo hebben andere mensen er ook nog wat aan.

 

[Dashel]

Sorry dat had ik natuurlijk moeten doen!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("BOOK1.XLS").Close SaveChanges:=False
End Sub

Gewoon in de help gezocht, wat ik ook al eerder had gedaan maar waarschijnlijk met m'n ogen dicht.

Dashel

 

[huijb]

Sorry dat had ik natuurlijk moeten doen!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("BOOK1.XLS").Close SaveChanges:=False
End Sub

Gewoon in de help gezocht, wat ik ook al eerder had gedaan maar waarschijnlijk met m'n ogen dicht.

Dashel

:thumb:

 

[Dashel]

Hoi Dashel ,

Heb je al eens met onderstaande codes geprobeerd ?

      Application.DisplayAlerts = False
      Application.Quit

Groetjes
Romain

Hi Romain,

ik zal straks jouw inzet even uitproberen:thumb:

 

[Paul-RT]

Ja, thanx Dashel, dat zocht ik ook al een tijdje.
Ik heb ook een code die documenten automatisch opslaat bij het afkruisen, zonder daarover te klagen (bron Wigi).
Interesse? Kan handig zijn in je huidige code.

 

[Dashel]

Ja, thanx Dashel, dat zoech ik ook al een tijdje.
Ik heb ook een code die documenten automatisch opslaat bij het afkruisen, zonder daarover te klagen (bron Wigi).
Interesse? Kan handig zijn in je huidige code.

Ja mag ik die code hebben?
Ik ben ook nog maar een leek maar met voorbeelden leer ik elke dag weer iets bij.

Dashel

 

[Paul-RT]

Sja, ik heb nu 3 code's in de loop der tijd. Hoop het zelf nog eens te leren.

In tabblad "This Workbook".

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Me.Saved = False Then Me.Save
End Sub

Als je dit in ieder blad stopt wat zich automatisch opent, heb je geen gezeur meer met afsluiten.
Alles wordt opgeslagen bij het afsluiten

 

[Dashel]

He bedankt voor de code!:thumb:
zo langzaam aan begin ik het steeds leuker te vinden

Groeten,

Dashel