Sub Display_GUID_Info()
'PURPOSE: Displays GUID information for each active _
Object Library reference in the VBA project
'SOURCE: www.TheSpreadsheetGuru.com
Dim ref
'Loop Through Each Active Reference (Displays in Immediate Window [ctrl + g])
For Each ref In ThisWorkbook.VBProject.References
Debug.Print "Reference Name: ", ref.Name
Debug.Print "Path: ", ref.FullPath
Debug.Print "GUID: " & ref.GUID
Debug.Print "Version: " & ref.Major & "." & ref.Minor
Debug.Print " "
Next ref
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------
'cochage" de références VB :
Private Sub CocherRefs()
On Error Resume Next
'Reference Name: VBA
ThisWorkbook.VBProject.References.AddFromGuid _
"{000204EF-0000-0000-C000-000000000046}", 4, 2
'Path: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL
'GUID: {000204EF-0000-0000-C000-000000000046}
'Version: 4.2
'Reference Name: Excel
ThisWorkbook.VBProject.References.AddFromGuid _
"{000204EF-0000-0000-C000-000000000046}", 1, 9
'Path: C:\Program Files (x86)\Microsoft Office\Root\Office16\EXCEL.EXE
'GUID: {00020813-0000-0000-C000-000000000046}
'Version: 1.9
'Reference Name: stdole
ThisWorkbook.VBProject.References.AddFromGuid _
"{00020430-0000-0000-C000-000000000046}", 2, 0
'Path: C:\Windows\SysWOW64\stdole2.tlb
'GUID: {00020430-0000-0000-C000-000000000046}
'Version: 2.0
'Reference Name: Office
ThisWorkbook.VBProject.References.AddFromGuid _
"{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}", 2, 8
'Path: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL
'GUID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
'Version: 2.8
'Reference Name: MSForms
ThisWorkbook.VBProject.References.AddFromGuid _
"{0D452EE1-E08F-101A-852E-02608C4D0BB4}", 2, 0
'Path: C:\windows\SysWOW64\FM20.DLL
'GUID: {0D452EE1-E08F-101A-852E-02608C4D0BB4}
'Version: 2.0
End Sub