1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Fungera TrustAccess () som Boolean Dunkel vbp som VBProject På felmeritförteckning därefter Fastställd vbp = ActiveWorkbook.VBProject TrustAccess = (fela = 0), Avsluta fungerar