How can I verify if "Trust access to visual basic project" is chec

[MikeZz]

I have a macro that requires this option to be checked.
"Trust access to visual basic project"

I know the only way to check the box is either manually or through Send Keys.
Is there a way through some property to see if it is checked or unchecked?


If there is, I can shut the macro down prior to it crashing with a dialog
box telling the user what to do to enable all the features.

This would really help!

Thanks,
MikeZz

 

[Bob Phillips]

Function VBAIsTrusted() As Boolean
Dim mpVBC As Object
Dim mpAlerts As Boolean
mpAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
On Error Resume Next
Set mpVBC = ThisWorkbook.VBProject.VBComponents.Item(1)
On Error GoTo 0
Application.DisplayAlerts = mpAlerts
VBAIsTrusted = Not mpVBC Is Nothing
End Function

 

[MikeZz]

Perfect! This will be a great help Bob,

Function VBAIsTrusted() As Boolean
Dim mpVBC As Object
Dim mpAlerts As Boolean
mpAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
On Error Resume Next
Set mpVBC = ThisWorkbook.VBProject.VBComponents.Item(1)
On Error GoTo 0
Application.DisplayAlerts = mpAlerts
VBAIsTrusted = Not mpVBC Is Nothing
End Function



--
__________________________________
HTH

Bob