1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 :
Fonction TrustAccess () comme booléen Faible vbp comme VBProject Sur le résumé d'erreur après Placer le vbp = l'ActiveWorkbook.VBProject TrustAccess = (errent = 0) Fonction de fin