1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Função TrustAccess () como bôoleano Vbp não ofuscante como VBProject No resumo do erro em seguida Ajustar o vbp = o ActiveWorkbook.VBProject TrustAccess = (erram = 0) Função do fim