1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Function TrustAccess() As Boolean Dim vbp As VBProject On Error Resume Next Set vbp = ActiveWorkbook.VBProject TrustAccess = (Err = 0) End Function