Opslaan zonder melding

[edsel_nl]

Ik gebruik de onderstaande code om een werkmap op te slaan. Nu komt alleen iedere keer de melding "bestand bestaat al. Wilt u het vervangen?". Deze melding wil ik graag weg.

ActiveWorkbook.SaveAs Filename:= _
    "C:\Program Files\Overzichten\Ingevoerde gegevens.xls", _
    FileFormat:=xlExcel8, Password:="Blabla", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False

Alvast bedankt..

 

[Paul-RT]

Ik gebruik hiervoor een VBA code.
Die open ik met MAcro / Visual Basic.
Plaats hem in "This Workbook".

Als je afkruist (zonder opslaan) krijg je geen vraag.
Er wordt opgeslagen en afgesloten. Geen "gezeur" van excel.

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

 

[Ginger]

Edsel_nl, Wat wil je met je code bereiken? Wil je een kopie van het huidige workbook of is het alleen de bedoeling om je veranderingen op te slaan? (ik gok 't 2e...)
Als het inderdaad om het 2e gaat, is deze regel genoeg...

ActiveWorkbook.Save

Groet, Leo

 

[Finch]

In dit geval is SaveAs vervangen door Save de beste oplossing, maar in het algemeen kan je waarschuwingen e.d. van Excel in je VBA code uitschakelen op volgende manier:

[FONT="Courier New"]Application.DisplayAlerts = False

'YOUR CODE HERE

Application.DisplayAlerts = True[/FONT]

 

[edsel_nl]

Super!

Bedankt allemaal.