nach längerer Zeit ohne eure Hilfe, komme ich nun mal wieder nicht weiter.
Ich habe eine ziemlich umfangreiche Excel Vorlage unter Office 2007 mit der Endung Fragebogen.xltm erstellt, da ich dort auch mit VBA gearbeitet habe.
Wenn ich die Datei nun normal anklicke, wird entsprechend der Vorgabe eine neue Datei erstellt: Fragebogen1
Diese neue Datei wird aber automatisch von Excel mit der Dateiendung Fragebogen1.xlsx vorgeschlagen.
Und wenn man dann auf „Speichern“ klickt, kommt eine Fehlermeldung, da ja Makros in der Datei sind und so weiter… Und meine User sind total überfordert und schicken mir Nachrichten, dass die Datei kaputt ist. *aaaaaaaaaaaaah*
Habt ihr einen Tipp für mich, wie ich der Vorlagen-Datei sagen kann, dass sie das FileFormat ändern soll und das OHNE die Datei zu speichern, sondern direkt beim öffnen? Ich will die Datei nicht an einem Ort abspeichern, da ich nicht weiß, wo meine User die Datei am liebsten speichern möchten.
Ich habe eine ziemlich umfangreiche Excel Vorlage unter Office
2007 mit der Endung Fragebogen.xltm erstellt, da ich dort auch
mit VBA gearbeitet habe.
Wenn ich die Datei nun normal anklicke, wird entsprechend der
Vorgabe eine neue Datei erstellt: Fragebogen1
Diese neue Datei wird aber automatisch von Excel mit der
Dateiendung Fragebogen1.xlsx vorgeschlagen.
Und wenn man dann auf „Speichern“ klickt, kommt eine
Fehlermeldung, da ja Makros in der Datei sind und so weiter…
Und meine User sind total überfordert und schicken mir
Nachrichten, dass die Datei kaputt ist. *aaaaaaaaaaaaah*
Habt ihr einen Tipp für mich, wie ich der Vorlagen-Datei sagen
kann, dass sie das FileFormat ändern soll und das OHNE die
Datei zu speichern, sondern direkt beim öffnen? Ich will die
Datei nicht an einem Ort abspeichern, da ich nicht weiß, wo
meine User die Datei am liebsten speichern möchten.
Sofern ich Dich richtig verstanden habe, könnte der folgende Code brauchbar für Dich sein:
Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then 'Wenn der Dialog "Speichern unter..." angezeigt wird, dann
'Speichern abbrechen
Cancel = True 'Speichern abbrechen
'Festlegen auf den Datei-Typen "Excel-Vorlage mit Makros"
Application.FileDialog(msoFileDialogSaveAs).FilterIndex = 9
'Anzeigen des Dialoges "Speichern unter..."
Application.FileDialog(msoFileDialogSaveAs).Show
'Aktion des Benutzers ausführen
Application.FileDialog(msoFileDialogSaveAs).Execute
End If
End Sub
Er gehört ins Codefenster von „DieseArbeitsmappe“ (sofern Du „DieseArbeitsmappe“ nicht umbenannt hast) und wird nur dann aufgerufen, wenn das Dialogfeld „Speichern unter…“ aufgerufen wird.