1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Functie TrustAccess () zoals Van Boole Schemerige vbp als VBProject Op Fout hervat daarna Plaats vbp = ActiveWorkbook.VBProject TrustAccess = (vergis me = 0) Beëindig Functie