Office: (Office 2016) Excel Sicherungskopie in Ordner mit Makro erstellen

Hallo Excel Experten

Ich habe einen Dienstplan aufgestellt, welcher 76 Sheets enthält und auf welchem 20 Leute ihren Dienst eintragen. Ich habe die Arbeitsmappe soweit geschützt, dass fast niemand etwas zerschiessen kann. Denoch habe ich Kollegen die es fertig bringe alles zu verstellen.

Was mir jetzt vorschwebt ist ein Makr welcher bei jedem speichern eine Sicherungskopie mit Zeitstempel in einem Backup Ordner anlegt. Leider habe ich von Makros keine Ahnung und weiss nicht wie ich ein solches Makro erstellen kann. Trotz Googeln und auch einiger gefunden Makros, habe ich es nicht zum Laufen gebracht.

Meine Arbeitsmappe heisst: Dienstplan.xlsm
Der Backupordner wäre: D:\Backup

Kann mir hier jemand ein solches Makro erstellen?

Vielen Dank im Vorraus

 

Moin!
Öffne den VBA-Editor mittel Alt+F11
Doppelklick auf DieseArbeitsmappe
Kopiere folgenden Code in das rechte Fenster:
<span style='font-style:italic; margin-left:36px; color:#008000; font-weight:bold;'>Microsoft Excel Objekt DieseArbeitsmappe</span><pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Option</span> <span style='color:#0000EE'>Explicit</span>

<span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Workbook_BeforeSave(<span style='color:#0000EE'>ByVal</span> SaveAsUI <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Boolean</span>, Cancel <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Boolean</span>)
<span style='color:#0000EE'>With</span> ThisWorkbook
.SaveCopyAs <span style='color:#FF0000'>&quot;D:\Backup\&quot;</span> & _
Format(Now, <span style='color:#FF0000'>&quot;yymmdd_hhnn_&quot;</span>) & .Name
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>With</span>
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span>
</pre>
Erzeugt dort automatisch eine Datei mit folgendem Namen:
190104_0755_Dienstplan.xlsm

Gruß Ralf