Ambiguous name detected

[Vtookup]

Hi.
Please help me with these codes. Don't know how to rename or merge these as single code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim backupfolder As String
backupfolder = "C:\Backup\"
ThisWorkbook.SaveCopyAs Filename:=backupfolder & ThisWorkbook.Name
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub

Thanks in advance for the help.

 

[Joe4]

Can you explain exactly what you are trying to accomplish with both of these codes?
Just want to make sure I fully understand your intentions, especially as it relates to "Save" vs. "SaveAs".

 

[Vtookup]

Hi Joe4.
Thanks for the reply.
I'm using a compiler to turn excel into exe file. by "Save" function, the file remain an exe file even backup.
by "SaveAs", it save into an xlsm. That's why I need to disable "SaveAs".
I hope that make sense. Thanks again.

 

[Joe4]

How about something like this?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Cancel = SaveAsUI

Dim backupfolder As String
backupfolder = "C:\Backup\"
ThisWorkbook.SaveCopyAs Filename:=backupfolder & ThisWorkbook.Name

End Sub

 

[Vtookup]

Thank you for the code. It works.
One more question, After
ThisWorkbook.SaveCopyAs Filename:=backupfolder & ThisWorkbook.Name
I Add MsgBox "Backup File Saved". I tried to "SaveAs" Although it does not execute, Msgbox "Backup File Saved" continue to show up.
Joe, can I have another request, to have another msgbox if SaveAs is pressed... like "SaveAs Disabled"?
Thank You.

 

[Joe4]

Maybe something like:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim backupfolder As String

Cancel = SaveAsUI

If Cancel = False  Then
    MsgBox "SaveAs Disabled"
Else
    backupfolder = "C:\Backup\"
    ThisWorkbook.SaveCopyAs Filename:=backupfolder & ThisWorkbook.Name
End If

End Sub