VBA Excel, Не применяются настройки Excel после внесения изменений в реестр

Есть макрос в файле Excel, проверяющий доступ к объектной модели проекта VBA (Настройки Excel) находящийся в модуле проекта - Module_vbomCheck. Есть макрос, включающий этот доступ, вызываемый из модуля выше, тоже находящийся в отдельном модуле проекта - Module_vbomChange. Если выполнять код непосредственно из модуля, все работает - доступ включается, но при открытии файла (Sub Workbook_Open() запускается из "ЭтойКниги"), настройки не применяются. В чем может быть дело?

Module_vbomCheck

Option Explicit

Public Sub Check_VBOM()
    Dim oVBProj As Object
    On Error Resume Next
    Set oVBProj = ActiveWorkbook.VBProject
    If Not oVBProj Is Nothing Then
    Else
        Dim Msg, Style, Title, Response, MyString
        Msg = "Доступ к объектной модели VBA запрещен, хотите разрешить? Excel закроется для применения настроек."
        Style = vbYesNo + vbInformation + vbDefaultButton1
        Title = "Проверка доступа к объектной модели VBA"
        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then
            Call Module_vbomChange.Change_VBOM
            Excel.Application.DisplayAlerts = False
            Excel.Application.Quit
        End If
    End If
End Sub

Module_vbomChange

Option Explicit

Public Sub Change_VBOM()
    Dim objExcelApp As Object, objShell As Object, ExlVersion As String, vbomLevel As Long
 
    Set objExcelApp = CreateObject("Excel.Application")
    ExlVersion = objExcelApp.Version: objExcelApp.Quit
 
    Set objShell = CreateObject("WScript.Shell")
    objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExlVersion & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"
    objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExlVersion & "\Excel\Security\VBAWarnings", 1, "REG_DWORD"
    Set objExcelApp = Nothing: Set objShell = Nothing
End Sub