''' Add reference from file (reverse lookup of GUID). 'An unknown error was encountered, so alert the userĭebug.Print "|> A problem was encountered, please check VBA references."ĭebug.Print "|-> Manually add/remove a reference in this file." If ( > nrefs) Thenĭebug.Print "|> Reference added without issue." GUID:=referenceGUID, Major:=majorNumber, Minor:=minorNumberĭebug.Print "|> Reference already in use. Public Function AddReferenceFromGUID(referenceGUID As String, Optional majorNumber As Integer = 1, Optional minorNumber As Integer = 0) As Booleanĭebug.Print "|> Trust acess to the VBA project object model is already granted."ĭebug.Print "AddReferenceFromGUID: " & referenceGUID If (VBA.InStr(UCase(ref.Name), UCase(referenceName)) 0) Then Public Function ReferenceExistsByName(referenceName As String) As Boolean ''' Returns True if a matching name is found in references. Public Function ReferenceExistsByGUID(referenceGUID As String) As Boolean ''' Returns True if the GUID is found in references. '''ĭebug.Print " ** MISSING ** (T_T) ** " ref.GUIDĭebug.Print " " ref.Descriptionĭebug.Print "|> Major:", VBA.Trim$(ref.Major)ĭebug.Print "|> Minor:", VBA.Trim$(ref.Minor) These code snippets apply to Excel, but similar settings exist for other Office applications.
If you do not find it in the Tools > References list, browse to the file directly: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB You will also need to add a reference to the Microsoft Visual Basic for Applications Extensibility library (for reference, Microsoft documentation). HasAccessToVBOM = CBool(m_RegEdit.RegistryGetValue(baseKey, keyName, "VBAWarnings")) ' Note: some older versions of Office use "AccessVBOM" insteadĭebug.Print "|> Has access to the VBOM? " & HasAccessToVBOM KeyName = "Software\Microsoft\Office\" & Application.Version & "\Excel\Security"
Public Function HasAccessToVBOM() As Boolean
''' Returns True if the current user has "Trust acess to the VBA project object model". M_RegEdit.Registr圜reateValue baseKey, keyName, "VBAWarnings", 1 ' Note: some older versions of Office use "AccessVBOM" insteadĭebug.Print "|> Trust acess to the VBA project object model granted." KeyName = "Software\Microsoft\Office\" & Application.Version & ".0\Excel\Security" ''' Grant "Trust acess to the VBA project object model" for the current user. VBAWarnings = 4, disable all without notification.VBAWarnings = 3, disable all except digitally signed macros.VBAWarnings = 2, disable all with notification.I try my best to help everyone out, but sometimes I don't have time to fit everyone's questions in (there never seem to be quite enough hours in the day!).Computer\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Excel\Security I can guarantee 9 times out of 10, one of my strategies will get you the answer(s) you are needing faster than it will take me to get back to you with a possible solution. I highly recommend that you check this guide out before asking me or anyone else in the comments section to solve your specific problem. That's why I want to share with you: My Guide to Getting the Solution to your Problems FAST! In this article, I explain the best strategies I have come up with over the years to getting quick answers to complex problems in Excel, PowerPoint, VBA, you name it! We all have different situations and it's impossible to account for every particular need one might have. How Do I Modify This To Fit My Specific Needs?Ĭhances are this post did not give you the exact answer you were looking for.
0 kommentar(er)
