Macro automatisch starten bij openen bestand

[Ger van Caldenberg]

Hallo allemaal,

Wie kan mij vertellen wat ik moet doen om:
1. een macro automatisch te laten uitvoeren bij het openen van een bestand?
2. Excel automatisch te (laten) beëindigen bij het sluiten van een bestand?

Bedankt alvast voor jullie aandacht.

Ger

[arend]

1.
De macro opnemen in VBA-This workbook:
> Rechtsklikken op tabblad van bestand
> kies programmacode tonen
> aan linkerzijde schuiven tot map "This workbook"
zichtbaar is
> dubbelklikken op map
> linksboven rolmenu met Algemeen openen
> workbook aanklikken
> macro toevoegen
2.
Door bij het sluiten het bovenste kruisje te kiezen
wordt na de vraag het bestand op te slaan automatisch
Exel gesloten

succes

>-----Oorspronkelijk bericht-----

>.
>

[Ger van Caldenberg]

Bedankt Arend
Ik ga het proberen.

Ger

"arend" <amul...@planet.nl> schreef in bericht
news:02ea01c38b5b$f9e62440$a101...@phx.gbl...

[Ger van Caldenberg]

Het automatisch laten starten van een macro bij het openen van een bestand
is me inmiddels gelukt, maar het automatisch afsluiten van de applicatie
Excel via een VB-commando in een macro lukt me niet. Dit is de macro waar
het om gaat:

Dim Msg, Style, Title, Response
Msg = "Wilt u het bestand afsluiten?" '
Definieer bericht.
Style = vbYesNo + vbDefaultButton2 '
Definieer knoppen.
Title = "Bestand sluiten"
' Definieer titel.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
' Gebruiker kiest Ja.
Application.ScreenUpdating = False
NaarMenu
'Voer deze macro uit en ga naar beginscherm
ActiveWorkbook.Close
Application.ScreenUpdating = True
Else
' Gebruiker kiest Nee.
Exit Sub
' Stoppen met de macro.
End If
End Sub

Moet ik om Excel af te sluiten in de macro iets opnemen van Application.Quit
o.i.d.?
Wie weet raad?

Ger

"Ger van Caldenberg" <gvancal...@home.nl> schreef in bericht
news:blphdv$31q$1...@news4.tilbu1.nb.home.nl...

[philip]

Ger,

--- sorry, bij het posten is door een foutmelding de link
naar de oorspronkelijke thread verloren gegaan ....

Je geeft inderdaad zelf de oplossing al aan. In je VBA
code "Application.Quit" zetten en Excel sluit af.

Een nuttige hint waarmee je zelf dit soort "goodies" kan
ontdekken : in VBA editor heb je op je standaard werkbalk
een knopje "Objectenoverzicht". Als je dit openklikt,
krijg je het ganse "objectmodel" van Excel te zien.

Kijk daar eens bij het object "Application", en zoek in
de rechtse lijst naar "Quit". Selecteer dat en druk F1
voor help.

Op die manier kom je al gauw tot de vaststelling dat de
ingebouwde helpfunctie in VBA een ongelooflijke schat aan
informatie bevat...

>.
>