有没有办法在打开具有相似文件名的 Excel 文件时自动运行宏？

Question

I have researched a good amount and tried this on my own this afternoon but was unsuccessful. When users download and open .XLS files that begin with "Current Approved", I want a macro to automatically run from my "PERSONAL.XLSB" file on any "Current Approved*.XLS" file upon opening it (* is a Wildcard). That way I can just put the code in any given users "PERSONAL.XLSB" file one time, and the macro will just automatically be triggered without the user needing to remember to trigger the macro via a shortcut key or button.

From my research here and in other places, I have only seen ways to:

1. Run the macro when opening the workbook which contains the macro.
2. Run a macro when any workbook is opened.

I have tried to modify #2 from the link above, but I've NOT figured out how to automatically run macros in this manner on files with similar names.

'Declare the application event variable
Public WithEvents MonitorApp As Application

'Set the event variable be the Excel Application
Private Sub Workbook_Open()
    Set MonitorApp = Application
End Sub

'This Macro will run whenever an Excel Workbooks is opened
Private Sub MonitorApp_WorkbookOpen(ByVal Wb As Workbook)
    Dim Wb2 As Workbook

    For Each Wb2 In Workbooks
        If Wb2.Name Like "Current Approved*" Then
            Wb2.Activate
            MsgBox "Test"
        End If
    Next
End Sub

Essentially, if I download an excel file from our CRM that begins with "Current Approved" and open it, I would like to see a messagebox of "Test".

Answer 1

Your code doesn't look like what you're describing. The below code should display the "Test" MsgBox when opening workbooks meeting the rule of starting with "Current Approved"

'This Macro will run whenever an Excel Workbooks is opened
Private Sub MonitorApp_WorkbookOpen(ByVal Wb As Workbook)
    Const cText As String = "Current Approved"

    If UCase(Left(Wb.Name, Len(cText))) = UCase(cText) Then
           ' Wb2.Activate
            MsgBox "Test"
    End If

End Sub