Office: (Office 365) Kopie von Datei-Vorlage zur weiteren Bearbeitung

Hallo zusammen,

ich habe eine XLSM-Datei die als lokale Vorlage-Datei auf den PC's von 20 verschiedenen Kollegen dienen soll.
Diese Kollegen sind allesamt Techniker und in der Regel nicht IT/PC-affin und wollen das das was sie machen sollen funktioniert.
Mein Gedanke war daher, beim Öffnen der Datei ein Workbook_Open() Script laufen zu lassen, welches eine Kopie der Vorlage-Datei mit einem anderen Namen unter dem selben Speicherort erstellt. Soweit kein Problem, nur wird dann natürlich beim Öffnen der neuen Datei wieder und wieder eine Kopie erstellt und so weiter und so weiter …

Ich habe aktuell leider keine Idee was bzw. wie man das handhaben könnte, ohne das die Vorlage-Datei in irgend einer Weise bearbeitet werden kann.

Vielleicht habt Ihr als Profis eine Idee wie man in meinem Fall verfahren könnte.
DANKE für Eure Antworten im Voraus.
Jens

 

Hallo Jens,

erstelle eine Mustervorlage XLTM, damit wird mit Doppelklick eine neue Dateiu erstellt oder Du speicherts sie im Vorlagenordner.

 

Hallo und danke lieber Hajo,

hab die Datei wie von Dir beschrieben gespeichert … geöffnet … editiert … gespeichert … geschlossen … die XLTM neu geöffnet … und festgestellt, dass die Vorlage nun den editierten Inhalt enthält.
Genau das passiert wenn die oben beschriebenen Kollegen damit arbeiten und genau das soll verhindert werden.

 

Du hast meinen Beitrag also nicht komplett gelesen. Da kann ich Dir also nicht helfen.
Ich schreibe nicht für den Paierkorb. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Ich kann nur sagen das beim Öffnen der XLTM diese direkt geöffnet wird und keine Kopie erstellt wird.

 

Es wird dann jedoch beim Speichern danach gefragt die Datei unter einem neuen Namen zu speichern ... jedoch wird lediglich XLSX als Dateiendung vorgeschlagen und nicht als XLSM ... ist das vielleicht ein Bug unter Office365 ?

Problem hierbei einfach ist, dass diejenigen die damit arbeiten sollen was das angeht keine Anhnung von den Unterschieden haben.

 

Code:

Private Sub Workbook_Open()
Dim strPfad As String
strPfad = ActiveWorkbook.Path
On Error Resume Next

If ActiveWorkbook.Name Like "*Vorlage*" Then

cb = InputBox("Bitte einen Namen oder/und eine Nummer für das zu erstellende Angebot eingeben ! " & vbCrLf & vbCrLf & "Speicherort:" & vbCrLf & strPfad)

    If cb <> "" or cb = "cancel" Then
        ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\Angebot " & cb & ".xlsm"
        Else
        ActiveWorkbook.Close savechanges:=False
        Exit Sub
    End If
Else
Exit Sub
End If

End Sub

Ich habe mir simpler weise wie folgt beholfen:

 

Habe den Code noch ergänzt, um die Kopie nicht mit dem Namen "Vorlage" abzspeichern zu können.

Option Compare Text
Private Sub Workbook_Open()
Dim strPfad As String
strPfad = ActiveWorkbook.Path
On Error Resume Next

If ActiveWorkbook.Name Like "*Vorlage*" Then

Wiederholung:
cb = InputBox("Bitte einen Namen oder/und eine Nummer für das zu erstellende Angebot eingeben ! " & vbCrLf & vbCrLf & "Speicherort:" & vbCrLf & strPfad)

If cb <> "" or cb = "cancel" Then
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\Angebot " & cb & ".xlsm"
If strPfad & "\Angebot " & cb & ".xlsm" Like "*Vorlage*" Then
MsgBox "Die Bezeichnung ''Vorlage'' ist im Dateinamen nicht erlaubt !"
If Dir(strPfad & "\Angebot " & cb & ".xlsm") <> "" Then Kill strPfad & "\Angebot " & cb & ".xlsm"
GoTo Wiederholung:
'Else
End If
Else
Exit Sub
End If

Else
Exit Sub
End If

 

Hi,

Du hast Hajo's Beitrag nicht bis zu Ende gelesen: die XLTM nicht einfach öffnen sondern einen Doppelklick (im Explorer) darauf machen - nur so wird aus der Vorlage eine neue Arbeitsmappe erstellt., die nicht mehr mit der Vorlage direkt verbunden sondern eine eigenständige Arbeitsmappe ist, die jedoch den kompletten Inhalt der Vorlage enthält.

---

 

Guten Morgen Karin,

ich hatte die XLTM per DOPPELKLICK über den Windows-Explorer geöffnet und danach folgte das bereits beschriebene Verhalten.

 

Hi,

in deinem Beitrag stand nicht, dass du sie per Doppelklick öffnest.

Übrigens: dass Excel für das Speichern einer neuen Arbeitsmappe, gleichgültig ob aus einer benutzerdefinierten Vorlage oder aus der Standardvorlage, IMMER zuerst den Typ XLSX vorschlägt ist offensichtlich ein ganz normaler Vorgang weil es die Standardeinstellung ist - und das unabhängig von der Excelversion (seit Excel2007).

---

 

Danke für Dein Feedback zum Verhalten von Excel Karin.