Immer Speichern unter vorgegebenen Namen
16.02.2005 15:31:10
Andreas
ich hab mir mal 'ne Frage an euch Experten:
Also ich möchte das Speichern meiner Original-Datei für andere User unterbinden.
Es soll dem User allerdings das speichern unter einem vorgegebenen Namen erlaubt sein.
Egal ob der User nun Speichern oder Speichern unter anklickt soll dieser Name vorgeschlagen werden.
Nun habe ich das Problem das ich mit dem unten stehenden Code zwar erreiche das sich das Fenster Speichern unter aufmacht, der Name vorgeschlagen wird aber ich zweimal auf speichern unter klicken muß, die Datei aber nicht gespeichert wird.
Wenn also jemand ne Idee hat...
Private Sub Workbook_beforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim Dateiname As String
Dim Speicherpfad As Variant
Dateiname = Application.DefaultFilePath & "\" & "Kopie " & Application.UserName
Speicherpfad = Application.GetSaveAsFilename(InitialFilename:=Dateiname, _
fileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Die Datei sollte in Ihrem Standardordner gespeichert werden!")
If Speicherpfad = False Then
Cancel = True
Exit Sub
End If
ActiveWorkbook.SaveAs Speicherpfad
Cancel = True
End Sub
Vielen Dank