Backupdatei Name erweitern

[M.Wichmann]

Hallo,

ich habe eine sehr umfangreiche Datei. Also mit vielen Makros usw.
Zur Sicherheit habe ich schon eine Backupfunktion eingebaut, die ich per Button und PW abfrage starte.
Ist es möglich, für den Fall einer Grundlegenden Änderung an der Datei, eine Funktion einzubauen den Namen der Datei einmalig anzupassen?

Hier mal der Code:

Code:

Sub Passwort()
If InputBox("Bitte Passwort eingeben !", "Passwortabfrage") = "ja" Then
  Call Sicherheitskopie
End If
End Sub

Sub Sicherheitskopie()
 Dim tFolder As String
 
 On Error Resume Next
 'Verzeichnis anlegen falls nicht vorhanden
 tFolder = "C:\Sicherung\"
 If Dir(tFolder) = "" Then MkDir tFolder
 
 ActiveWorkbook.Save
 ActiveWorkbook.SaveCopyAs tFolder & Format(Now, "dd.mm.yyyy-hh.nn.ss ") & ActiveWorkbook.Name
End Sub

[M.Wichmann]

Hallo,

bzw. wenn ich das als unabhängiges Makro mache (ist wohl einfacher), wie müßte ich da eine Inputbox einbauen, um das:
 & ActiveWorkbook.Name

zu ändern??