Проблема с References!

[daemon_mx]

Есть файл Excel с макросами. Писал я его целиком только на своем компе, а когда я понес его к другу чтобы проконсультироваться то при запуске обного из макросов произошла ошибка в этой строке:

Код: Выделить всё

ActiveCell.FormulaR1C1 = formula1

где formula1-это строка в которой содержится формула. Затем (уже на другом компе) произошла ошибка со стандартной функцией mid которая вырезает часть строки. Возникает вопрос почему так происходит хотя на всех 3-х компах в Tools --> Preferences были отмечены те же самые галочки. Но когда я добовлял другие то ошибки исчезали. И поэтому появился второй вопрос, а как проставлять галочки программно(макросом) при открытии Excel'я???

[Чудовище под кроватью]

А что за ошибка? 1004?

[daemon_mx]

Именно такая! Можете что-нибудь посоветовать?

[Чудовище под кроватью]

Именно такая! Можете что-нибудь посоветовать?

1. Что за формула?
2. Лист или книга защищена?

[daemon_mx]

Формула обычная - значение ячейки возводится в какую-то степень (определяется пользователем) а потом умножается на какое-то число которое тоже определяется пользователем. Лист защищен, но в самом начале процедуры я защиту снимаю, а в конце разумеется занова устанавливаю защиту. Больше всего удивляет то, на одном компе все работает, а на другом уже появляется ошибка, хотя в списке Tools->References все одинаково. Стоит только что-нибудь добавить и снова работает. Можно ли програмно выставлять эти галочки в References? Тогда бы я просто заранее при открытии книги выставлял все что необходимо.

[GSerg]

Лист защищен, но в самом начале процедуры я защиту снимаю, а в конце разумеется занова устанавливаю защиту.

Опять и снова. Они никогда не закончатся...
http://bbs.vbstreets.ru/viewtopic.php?p=6588939#6588939
http://bbs.vbstreets.ru/viewtopic.php?p=159432#159432

[daemon_mx]

Если я правильно понял то моей ошибкой было то, что я просто защищал лист полностью, а нужно было указывать параметр UserInterfaceOnly=True? Потому что я делал так:

Код: Выделить всё

ActiveSheet.Unprotect
' текст программы
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True