macro opslaan en afsluiten

[vrir]

Hoe maak in een macro waarin een spreadsheet wordt opgeslagen, bestaande versie overschreven zonder te vragen en afgesloten?

 

[[FJ]Hydra]

Zet deze code in ThisWorkBook

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

Voila....

 

[vrir]

Als ik hierna het werkblad open moet ik eerst het venster nog een keer aanklikken. Doe ik dat niet, dan kom ik in VBA en krijg ik een foutmelding omdat ik iets probeer te verwijderen.

Ik denk dat dit beter in een macro gevat kan worden.

 

[huijb]

Probeer het eens als volgt;

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts=False
ThisWorkbook.Close SaveChanges=True
End Sub

 

[[FJ]Hydra]

Vreemd... Bijmij geeft het nimmer problemen. Oplossing van Huijb werkt ook prima.. :thumb: