Save as

[corania17]

Geachte forumleden,

Als ik een Excel bestand open en via "X" sluit komt er een popup met Opslaan, Niet opslaan en Annuleren.
Is het mogelijk dat als ik Opslaan kies er een nieuwe popup verschijnt met twee opties Opslaan Als en Ja?
Het oorspronkelijke bestand mag alleen worden opgeslagen door de Ja knop.
Als het bestand gevuld is met data moet het worden opgeslagen Als.
Of is het mogelijk om het eerste popup uit te breiden met een toets Opslaan Als?

Met vriendelijke groet, Rubik

 

[edmoor]

Dat kan je maken in het Worbook_BeforeClose event.

 

[corania17]

Geachte Edmoor,
Bedankt voor uw bericht.
Ik heb wat geprobeerd maar krijg de file niet gesaved.
Zou dit ook aan de versie van Excel kunnen liggen?
Ik gebruik Excel 2013.
In het Workbook heb ik de volgende code geplaatst.

"Private Sub Workbook_BeforeClose(Cancel As Boolean)"

"' bewaar Macro"
"'
" ChDir "C:\Users\NAAM\Downloads""
" ActiveWorkbook.SaveAs Filename:="C:\Users\COR\Downloads\Master-DocBase.xlsm", _"
" FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False & Format(Now, " yyyy-mm-dd-hhmm")"
"End Sub"

Hierop komt een foutmelding Methode SaveAs van object Workbook is mislukt.
Wat staat er nu niet goed?

Met vriendelijke groet, Rubik.

 

[edmoor]

Plaats een voorbeeld van je document.