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

 

[Artik]

GlobalMPT is a variable. Did you previously (outside of the function) declare this variable and assign Global.mpt to it?

Artik

 

[BVOPP]

No I did not do that... In stead of GlobalMPT i also tested with Global.mpt but that does not work neither.
Tried several ways to assign but none works.

 

[BVOPP]

@Artik Do you know how I would need to do that? Thanks in advance for your support.

 

[Artik]

Does this work?

Sub tester()
    Debug.Print Is_Module_Loaded("Module1")
End Sub


Public Function Is_Module_Loaded(name As String) As Boolean
    Dim GlobalMPT As Object
    Dim Module As Object

    Set GlobalMPT = Application.GlobalTemplate.VBProject
    
    On Error Resume Next
    Set Module = GlobalMPT.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

Artik

 

[BVOPP]

@Artik No this is throwing Runtime error'438': Object doesn't support this property or method.

 

[Artik]

1. Are you running this test code from within MS Project or another application, such as Excel?
2. Do you have “Programmatic access to VBA project” enabled in the program options?

Unfortunately, this application is completely unknown to me. I have spoken with Copilot and it alleges that the reference is correct:

Set GlobalMPT = Application.GlobalTemplate.VBProjectCodeModule

Artik

 

[BVOPP]

Hi @Artik
1. Running in MS Project
2. Access Trust Center Settings: Go to File → Options. Navigate to the Trust Center tab, then click on Trust Center Settings. Macro Settings: In the Trust Center window, select Macro Settings. Check the option: Trust access to the VBA project object model. But this option is not available at all, see attachment added...

In Application there is no .GlobalTemplate Only
.GlobalBaseCalendars
.GlobalOutlineCodes
.GlobalReports
.GlobalResourceFilters
.GlobalResourceTables
.GlobalTaskFilters
.GlobalTaskTables
.GlobalViews
.GlobalViewsCombibation
.GlobalViewsSingle

 

[MARK858]

Trust access to the VBA project object model

Try under Macro Security in the Code section on the Developer tab, if not is it a company computer?

T

 

[BVOPP]

@MARK858 gives the same result... and yes it is a company laptop and MS Project license as well.