VBA to save a copy of the file as a PDF without changing the current filetype?

[LucidCheetah]

I have a button macro'd to save a daily backup of a spreadsheet we use daily at work. I would liek to save these historical backups as PDFs to avoid employees altering the data after the fact, but how can I do this without changing the current active file type or filename?

At the moment I have it saving the backup fiel to the directory with a dated filename, then just saving over the original file after to revert back to the original file. saving the historical copy as a PDF busts this. I feel liek there has got to be a better way to do it. Any tips?

 

[davesexcel]

I'm not sure what you are referring to, but you can control what the PDF is saved as.

Change folder to suit...

Sub Button1_Click()
    Dim s As String, folder As String

    folder = "C:\Users\dmorrison\Downloads\"
    s = ActiveSheet.Name & "-" & Format(Date, "mm dd yy")


    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=folder & s & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=True
    

End Sub