Сбор сведений (режимы администратора и пользователя, добавление строк)

[ulyanov]

Добрый день.
Прошу вашей помощи, цель - собрать однотипные данные с предприятий для формирования отчета руководству. При этом необходимо максимально ограничить пользователя в выборе значений.
Нашел подходящий код, но столкнулся с рядом трудностей:
1. Я плохо знаком с программированием, только университетские познания, ну тут есть куда стремиться, благо литературы море, но конкретной задачи она (при беглом прочтении) не помогла мне решить;
2. Файл. В режиме администратора все работает отлично, при этом если перейти в режим пользователя тоже все работает отлично, но если в режме пользователя сохранить файл, а затем снова его открыть, то строка не добавляется и не удаляется. Программа в качестве ошибки выделяет разные части кода.

Помогите исправить код, чтобы файл и макросы в нем работали. Также буду благодарен если подпишете, что выполняют конкретные строки кода.
Файл во вложении.
Спасибо.

[IgorGO]

ulyanov,
обьясню где Вы палитесь:

для формирования отчета руководству

предполагается, что таким образом Вы получаете зарплату, а здесь Вы предлагаете всем за просто так сделать за Вас то, за что (в том числе за что) Вы потом будете получать зарплату

обьясните руководству, что у Вас

только университетские познания

но на форуме есть ПТУшник, который может сделать эту работу... дело за малым... согласовать сумму

или еще вариант: эта задача покажется кому-то на столько неожиданной, оригинальной и интересной, что он не устоит перед соблазном сделать ее и вывалить код уже следующим сообщением

[EducatedFool]

Чтобы ошибка не выскакивала, после открытия файла надо нажать кнопку USER

Чтобы режим ЮЗЕР включался автоматически, добавьте в модуль ЭтаКнига следующий код:

' автоматически срабатывает при открытии файла
Private Sub Workbook_Open()
    UserMode
End Sub