Check if a code module exists in the Global.MPT instead of the ActiveProject does not work

[BVOPP]

In the internet I found an excel version and changed it for MS Project. The Set Module = ActiveProject.VBProject.VBComponents(name).CodeModule does work but the Set Module = GlobalMPT.VBProject.VBComponents(name).CodeModule does not give an error but it does not work either....
Any idea??

Sub tester()

    Debug.Print Is_Module_Loaded("Module1")

End Sub


Public Function Is_Module_Loaded(name As String) As Boolean

    Dim Module As Object

    On Error Resume Next
    'Set Module = ActiveProject.VBProject.VBComponents(name).CodeModule
    Set Module = GlobalMPT.VBProject.VBComponents(name).CodeModule
    On Error GoTo 0

    Is_Module_Loaded = Not Module Is Nothing

    If Not Is_Module_Loaded Then
        MsgBox ("MODULE: " & name & " is not installed please add")
    Else
        MsgBox ("MODULE: " & name & " is already installed")
    End If

End Function

 

[MARK858]

and yes it is a company laptop and MS Project license as well.

Then Trust access to the VBA project object model has probably been disabled in the registry by the company as it is a higher security risk.

 

[BVOPP]

Yes you will be right. Thanks for your support and closing the topic now...

 

[Artik]

Then try this still:

    Set GlobalMPT = Application.VBE.VBProjects("Global.mpt")

Of course, “Trust access to the VBA project” is required

If it works, pay tribute of thanks to ChatGPT.

Artik