Datei nicht unter einem bestimmten Dateinamen spei
13.10.2003 10:22:05
Madman
Erstmal ein Lob an das tolle Forum!Wie schnell einem hier geholfen wird ist echt toll!
Nun aber zu meinem Problem:
Ich will verhindern, daß die Datei unter einem bestimmten Dateinamen abgespeichert wird. Dies versuche ich mit folgendem Code:
Select Case MsgBox("Sie haben nicht die Berechtigung, die Datei unter dem Originalnamen zu speichern! Wollen sie sie unter einem anderen Namen sichern?", vbYesNo)
Case vbYes
Do
fname = Application.GetSaveAsFilename("DateiKopie.xls")
Loop Until fname <> False And fname <> "Originalname.xls"
ActiveWorkbook.SaveAs fname
End Select
Wenn ich jedoch den Originalnamen eingebe, kommt ein Fragefenster ob die vorhandene Datei überschriben werden soll!Dabei sollte laut Code doch die Eingabe eines Namens erneut erfolgen? Weiß jemand was ich falsch mache? Oder muß man den Dialog unterdrücken?
MfG Madman