MS Project 2013: VBA Project_Open() Event not fired when opening an empty template from via...

Hi Barbara,

The workaround is working fine.

But as you already noted the solution only covers "additional opened projects".

It is not working when you initially open MS Project with a project-File.

I'm going to use a combination of both (Project_Open() and your work-around).

This question may be closed as "answered" by someone.

Thanks a lot,

Karl

Hi,

I can reproduce this issue. But there is a work around:

Create a class module (I called it clsEvents) and add the following code:

Public WithEvents ProjApp As MSProject.Application

Private Sub ProjApp_NewProject(ByVal pj As Project)

MsgBox "Do what you need to do on Project_Open"

End Sub

Create a (normal) module with this code:

Public ProjEvents As New clsEvents

Sub EnableEvents()

Set ProjEvents.ProjApp = MSProject.Application

End Sub

Add the following code in your ThisProject(Global.mpt)

Private Sub Project_Activate(ByVal pj As Project)

Call EnableEvents

End Sub

Project_Activate is fired on each project change, also for creating projects from any template. This will enable events calling procedure EnableEvents. The events are in the class module. After enableing events, you have a lot to choose from (also task,
resource and assignment events). I used "NewProject". Note: this does not mean " a new project is created" but "an additional project is opened"

Here some additional information:
https://msdn.microsoft.com/en-us/library/ee355232(v=office.12).aspx It is still applicable for current versions.

Does that work for you?

Barbara

This is the screenshot where my method is located in global.mpt

Hallo Pauline,

vielen Dank für den Hinweis. Ich hatte im Vorfeld zu meiner Anfrage hier im englischen MSDN-Forum bereits ein Thema eröffnet, das bisher leider nicht zufriedenstellend beantwortet werden konnte. Der Vollständigkeit halber hier trotzdem der Link zum Thema:

[MS Project] ProjectBeforeTaskChange event not fired on value deleted

Hoffnungsvolle Grüße,

Eric

Hi AnnaThomas,
Thanks for your reply. After opening the "Finder" and opening "Home" from the "Go" menu, there is no "Library". Am I searching in the wrong place? I also tried searching for the file "com.microsoft.Word.plist" via "Go to Folder", but it could not be found.
Cheers!