On Error Resume Next

    Dim objShell
    Dim vatReturn

    Set objShell = CreateObject("WScript.Shell")
    
    vatReturn = objShell.RegRead( _
      "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Security\Level")
      
    If vatReturn =  3  Then
        MsgBox "Поддержка макросов в Excel отключена!"
    End If
    
    ' Сами меняем, без участия пользователя.

    objShell.RegWrite _
      "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Security\Level", _
       1 , "REG_DWORD"

    MsgBox "Поддержка макросов в Excel включена! :)"

' Первый вариант - "В лоб".

    'On Error Resume Next

    'objShell.RegWrite _
    '  "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Security\Level", _
    '  1, "REG_DWORD"

    'objShell.RegWrite _
    '  "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Security\Level", _
    '  1, "REG_DWORD"

    'objShell.RegWrite _
    '  "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\Level", _
    '  1, "REG_DWORD"

' Второй вариант - определим версию Office через WMI.

Sub X2()
    Dim objWMIService
    Dim objApp
    Dim strComputer
    Dim colApps

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
    Set colApps = objWMIService.ExecQuery _
      ("Select * from Win32_Product Where Caption Like '%Microsoft Office%'")
        
    For Each objApp In colApps
        Debug.Print "Caption: " & objApp.Caption
        Debug.Print "Version: " & objApp.Version
    Next
End Sub

' Третий вариант - создадим экземпляр.

Sub X3()
    Dim objExcel As Object

    Set objExcel = CreateObject("Excel.Application")
    
    Debug.Print "Version: " & objExcel.Version
    Debug.Print "Build: " & objExcel.Build
    
    objExcel.Quit
End Sub

' Четвертый вариант - проверим через реестр.

Sub X4()
    On Error Resume Next

    Dim objShell
    Dim vatReturn

    Set objShell = CreateObject("WScript.Shell")
    
    vatReturn = objShell.RegRead( _
      "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Application\CurVer\")
    
    Debug.Print "Version: " & vatReturn
End Sub