Temporäre Datei erstellen - Workbook_BeforeSave

Private Sub Workbook_open()
If IsEmpty(format.Cells(2, 2)) Then
For i = 1 To 12
DateiName = Dir("C:\Users\User\Temp\test_" & i & ".xlsm")
If Dir("C:\Users\User\Temp\test_" & i & ".xlsm") = "" Then
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Temp\test_" & i & ".xlsm"
tempfiles.Cells(tempfiles.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = "C:\Users\ _
User\Temp\test_" & i & ".xlsm"
Exit For
End If
Next i
Else
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Temp\" & ThisWorkbook.Name
tempfiles.Cells(tempfiles.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)            = "C:\Users\ _
_
_
User\Temp\" & ThisWorkbook.Name
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
k = 1
For i = 1 To 12
If Dir("C:\Users\User\FinaleDatei\" & format.Cells(2, 2).Value & "_rev" _
& i & ".xlsm")  "" Then
k = i + 1
Exit For
End If
Next i
Application.ActiveWorkbook.SaveAs Filename:="("C:\Users\User\FinaleDatei\" _
& format.Cells(2, 2).Value & "_rev" & k & ".xlsm", FileFormat:=52, addtomru:=True
MsgBox "Your file was saved here: ("C:\Users\User\FinaleDatei\" &     format.Cells(2, 2). _
Value & "_rev" & k & ".xlsm"
End If
Problem ist: Beim dem Speicher der Temporären Datei wird automaitsch die Workbook_BeforeSave  _
Aktion ausgeführt...soll aber erst beim klicken auf speicher passieren.
vielleicht hat von euch jemand einen Lösungsansatz :)
Vielen Dank!