Excel VBA Auto_Open() detect what workbook you are opening

[SourceBrett]

[U]EXAMPLE CODE NOT REAL:
[/U]
Private Sub Auto_Open()

    If ( Activeworkbook.isNewDocuement() == false ) then
        Goto :EOF
    End If

    ' [code example]
    ' [code example]
    ' [code example]

:EOF
End Sub

I have a macro that runs each time excel open which works great but now I want it to run only when opening a blank/new workbook. I've tried a few things but can't figure out how to detect weather or not I'm opening a new workbook or an existing one. I'd like to run the check before running the code to save on processes.
Any suggestions?

 

[Michael M]

If you are opening a NEW workbook....it wouldn't have code in it !!
So, I don't see how you are going to apply new code .

 

[SourceBrett]

The Autpen is in Personal.xlsb and not in a single workbook

 

[SourceBrett]

So what happens it whenever I open excel no matter if I'm opening for a new document or open a document located on my desktop it goes through the Personal.xlsb Autpen macro. Which is fine and doesn't hurt anything but I just wanted to make the code a little more efficient by only going through the entire macro when it's a new document vs a document that's already saved.

 

[Michael M]

OK, maybe something like this to check if the workbook has been saved previously

Sub Auto_open()
Dim s As String
On Error GoTo EHandler
s = ActiveWorkbook.BuiltinDocumentProperties("last save time")
MsgBox s
Exit Sub
EHandler:
MsgBox "This is a new file"
End Sub

 

[SourceBrett]

From my testing ActiveWorkbook doesn't work until Autpen() finishes. I get the error when opening excel fresh and when opening a document. If this is impossible I'll just move on but I couldn't find this question anywhere on the internet.

 

[SourceBrett]

In all of my personal testing Activeworkbook comes up as nothing. Please see image for what I mean
https://drive.google.com/file/d/11VoQrAHX6-Hwwytyd-inseviiUZj9Jjt/view?usp=sharing

 

[shg]

In ThisWorkbook in Personal:

Dim WithEvents app As Excel.Application

Private Sub Workbook_Open()
  Set app = Application
End Sub

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
  If Len(Wb.Path) Then
    MsgBox "existing workbook"
  Else
    MsgBox "new workbook"
  End If
End Sub

Workbook_Open needs to run first.

 

[SourceBrett]

Have to leave but I'll test it tomorrow thank you for all your guys help!