auto save when open and adding current date to file

I am trying to idiot proof my workbook to auto save upon opening with the same file name with the current date added on the end. I have the file write protected by selecting properties and checking the box to write protect.

I do not see a new file name being created.

Private Sub Workbook_Open()
    objWorkbook.SaveAs "K:\Test\" & objWorkbook.Name & Format(Date, "MMMddYYYY")
End Sub

Thanks in Advance,

Christopher aka Ferrum

Hi, Christopher,

on opening objWorkbook should be empty. You should rely on ThisWorkbook instead

Private Sub Workbook_Open()
    With ThisWorkbook
      .SaveCopyAs "K:\Test\" & Left(.Name, Len(.Name) - 5) & Format(Date, "MMMDDYYYY") & ".xlsm"
    End With
End Sub

I needed to add a folder which is a Trusted location as well.

Ciao,
Holger

Thanks for this, I tried it, but still no new file noted.
My workbook is not empty.
Will that matter?

Christopher aka Ferrum

Hi, Christopher,

The commands will save a copy of the workbook, no matter if there is data in it or not. Difference between SaveAs and SaveCopyAs is that the last of the two leaves you in the original workbook (save the new workbook without changing activeworkbook) while the first gets you to the newly saved workbook.

I tried the code prior to posting and had to djust the drive and folder to suit on my system (running Windows7 and 2007).

Ciao,
Holger

Hi, Christopher,

the Workbook_Open-event will only get fired if placed in ThisWorkbook (currently itīs placed behind STATUSBOARD where it canīt get fired). Please relocate the code and try again.

Ciao,
Holger