Save As

[mathijsderuiter]

Beste mensen,

Ik gebruik momenteel deze code:

Sub Afgeronderechthoek1_Klikken()

Dim name
name = Application.GetSaveAsFilename

ActiveSheet.SaveAs(Filename:=name) = vbYes


End Sub

Werkt prima, totdat ik wil annuleren, dan krijg ik "Er bestaat in deze locatie al een bestand met de naam False.xlsm. Wilt u dit vervangen?

Vervolgens krijg ik van VBA de melding: Kan geen toegang krijgen tot False.xlsm.

Weet iemand hoe ik dit kan oplossen, dus de annuleer knop in het saveas venster de opdracht daadwerkelijk te laten annuleren?

,Mathijs

 

[huijb]

Het is niet toegestaan je vraag twee keer te plaatsen, hier verder deze gaat dicht. http://www.helpmij.nl/forum/showthread.php/743369-Activesheet-save-as-kan-niet-annuleren