afsluiten excel programma

[rotrax]

op dit forum staat uitgebreid beschreven hoe je een werkmap kan afsluiten, nu wil ik echter direct excel afsluiten en de werkmap niet opslaan.

iemand een idee?

 

[Bennie]

Hier staat iets beschreven.

Groetjes,
Bennie

 

[MayNiak666]

het antwoord

voeg de volgende code toe aan het einde van je macro:

ThisWorkbook.Saved = True
Application.Quit

That's all

 

[rotrax]

Ik probeerde application.quit maar dat werkt niet.

iemand een oplossing

 

[MayNiak666]

Erg vreemd. Volgens mij is Application.Quit de enige manier om binnen VBA de applicatie af te sluiten. Krijg je ook ene foutmelding of zo? Als je met F8 de macro doorloopt, kom je dan wel bij Application.Quit? Of kan het zijn dat Excel nog ergens mee bezig is, zodat het nog niet kan afsluiten? In die hoek zou ik het dan zoeken... Succes!

 

[Bennie]

In mijn link staan nog andere mogelijkheden. O.a.:
ActiveWorkbook.Close (False)

Groetjes,
Bennie

 

[huijb]

Maar dit kan ook nog
Application.DisplayAlerts=False
ThisWorkbook.Close SaveChanges=True
Uiteraard kan je True veranderen in False.

 

[MayNiak666]

Ja, daar hebben jullie wel gelijk in. Die functies sluiten het bestand dan wel af, maar het ging Rotrax er om dat Excel meteen ook afgesloten werd, en volgens mij gaat dat alleen met application.quit

 

[Bennie]

Dat klopt, je hebt gelijk

Application.DisplayAlerts = False
Application.Quit

Groetjes,
Bennie

 

[MayNiak666]

Maar waarom werkt dan application.quit niet bij Rotrax? Ik gebruik het zelf ook, zowel op m'n werk als thuis, met verschillende versies van Excel, en bij mij werkt het tadeloos?!?

 

[rotrax]

Ja dat snap ikzelf ook niet!

miscchien dat jullie zien wat ik fout doe want ik zie het niet meer. dit is wat ik onder een knopje heb staan.


Private Sub CommandButton6_Click()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With

ThisWorkbook.Saved = True
Application.Quit
End Sub

ziet iemand de vout!?!

overigens sluit hij het document wel af maar niet excell zelf

 

[huijb]

Aan die code mankeert niets, tenminste ik zie niet wat er evt. fout aan is. Blijft vreemd want bij werkt het wel.

 

[huijb]

Rotrax misschien is er op de achtergrond nog wel iets actief wat van Excel is. Je zou
Application.EnableEvents = False er tussen kunnen zetten. Je krijgt dan,
ThisWorkbook.Saved = True
Application.EnableEvents = False
Application.Quit

 

[rotrax]

zo zie je maar!

dit werkt perfect

allemaal bedankt

 

[huijb]

Dat is heel mooi. :thumb: