Appendix Thread. ( Codes for other Threads, etc.) Event Coding Drpdown Data validation

[DocAElstein]

Some sample data for other Posts and Threads:
http://www.excelfox.com/forum/showth...ing-Techniques

Using this code: _..

 Sub Its() ' snb 2017
Dim It As Variant
  For Each It In ThisWorkbook.VBProject.References
  Dim strIts As String
   Let strIts = strIts & "Description:" & vbTab & It.Description & vbCr & "Name:" & vbTab & vbTab & It.Name & vbCr & "Buitin:" & vbTab & vbTab & It.BuiltIn & vbCr & "Minor:" & vbTab & vbTab & It.minor & vbCr & "Major:" & vbTab & vbTab & It.major & vbCr & "FullPath:" & vbTab & vbTab & It.fullpath & vbCr & "GUID:" & vbTab & vbTab & It.GUID & vbCr & "Type:" & vbTab & vbTab & It.Type & vbCr & "Isbroken:" & vbTab & vbTab & It.isbroken & vbCr & vbCr
  Next It
Debug.Print strIts ' From  VB Editor Ctrl+g  to get Immediate Window from which info can be copied
End Sub

_.. you can get text displayed in the Immediate Window which you can copy.




Some example VBA available checked Libraries:
VBACheckedAvailableLibraries_1.JPG : https://imgur.com/scnHhHR
Attachment 1992
Here below the code output based on running in a Workbook which has the libraries checked as in the above screenshot:

Description:    Visual Basic For Applications
Name:       VBA
Buitin:     Wahr
Minor:      0
Major:      4
FullPath:       C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
GUID:       {000204EF-0000-0000-C000-000000000046}
Type:       0
Isbroken:       Falsch

Description:    Microsoft Excel 12.0 Object Library
Name:       Excel
Buitin:     Wahr
Minor:      6
Major:      1
FullPath:       C:\Program Files\Microsoft Office\Office12\EXCEL.EXE
GUID:       {00020813-0000-0000-C000-000000000046}
Type:       0
Isbroken:       Falsch

Description:    OLE Automation
Name:       stdole
Buitin:     Falsch
Minor:      0
Major:      2
FullPath:       C:\Windows\system32\stdole2.tlb
GUID:       {00020430-0000-0000-C000-000000000046}
Type:       0
Isbroken:       Falsch

Description:    Microsoft Office 12.0 Object Library
Name:       Office
Buitin:     Falsch
Minor:      4
Major:      2
FullPath:       C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL
GUID:       {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
Type:       0
Isbroken:       Falsch

Description:    Microsoft HTML Object Library
Name:       MSHTML
Buitin:     Falsch
Minor:      0
Major:      4
FullPath:       C:\Windows\system32\mshtml.tlb
GUID:       {3050F1C5-98B5-11CF-BB82-00AA00BDCE0B}
Type:       0
Isbroken:       Falsch

Description:    Microsoft XML, v6.0
Name:       MSXML2
Buitin:     Falsch
Minor:      0
Major:      6
FullPath:       C:\Windows\System32\msxml6.dll
GUID:       {F5078F18-C551-11D3-89B9-0000F81FE221}
Type:       0
Isbroken:       Falsch

Description:    Microsoft Forms 2.0 Object Library
Name:       MSForms
Buitin:     Falsch
Minor:      0
Major:      2
FullPath:       C:\Windows\system32\FM20.DLL
GUID:       {0D452EE1-E08F-101A-852E-02608C4D0BB4}
Type:       0
Isbroken:       Falsch

This infomation above can be useful for Later Early Binding.

_.__________________

Note that for Broken Libraries the GUID infomation appears to be available also, so I would tend to use .AddFromguid for Later Early Binding simply as I may heve a better chance of collecting before hand the GUID infomation than I do for other properties:
MidTestJeffMoseToolsBroke.JPG : https://imgur.com/ZKq8BTr
Attachment 1993

MostPropertiesOfbrokenreferencesDontWork.JPG : https://imgur.com/FcVjDLl
Attachment 1994
In this example , the last two Library references were broken, but the GUID infomation is still available