1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Функция TrustAccess () как булевско Тусклое vbp как VBProject На резюме ошибки затем Установите vbp = ActiveWorkbook.VBProject TrustAccess = (заблуждается = 0) Функция конца