Ошибка 400 при выполнении макроса

[shoa_izh]

Создала примитивный макрос (удалаяет хвостовые пробелы в первой колонке), сделала кнопку на панели быстрого запуска.

Программой стороннего разработчика открывается отчет в Excel, кнопка с макросом имеется, при нажатии выдает ошибку 400.

Руками открываю личную книгу макросов, все начинает работать.

Станность в том, что на одном компе все работает на другом нет. Разница в ОС, на ХР работает, на Win 7 не работает


Подскажите, пож-та, что и где может блокировать загрузку личной книге макросов??? Разработчики программы утверждают что ничего не блокируют, просто открывают эксель и туда открываю книгу сформированную ими

[VictorM]

Объснение конечно несколько туманное, но можно предположить, что если

на ХР работает, на Win 7 не работает

связано это с политикой безопасности Win7

[shoa_izh]

Об этом я догадалась.

Хотелось бы еще знать что отключить.

[shoa_izh]

если эксель просто открыть, то все макросы работают

[VictorM]

если эксель просто открыть, то все макросы работают

вот Вам и ответ
ищите причину в "сторонней программе"

[EducatedFool]

1. Надо смотреть код макроса.
Вообще, в вашем случае достаточно макроса из одной строки кода.

2. Такое может быть, если присутствуют 2 макроса с одинаковым именем.
(один - ваш макрос, другой - из какой-либо надстройки или файла)
Ну или макрос ваш криво написан.

[shoa_izh]

Sub Макрос1()

'
'в колонке A1 удалаяет хвостовые пробелы
'

kol_str1 = Range("a1").CurrentRegion.Rows.Coun t
For i = 1 To kol_str1
Cells(i, 1).Value = Trim(Cells(i, 1).Value)
Next
End Sub

[shoa_izh]

частично разобралась, но не понимаю почему так происходит. Произошло следущее:
После того как сторонней программой открылся отчет в Excel (в этот момент личная книга макросов не загружена), нажимаю на кнопку с макросом
1. на компе на котором работает: подгружается личная книга макросов по пути C:\Documents and Settings\Name_user\Application Data\Microsoft\Excel\XLSTART -- оттуда где он создается по-умолчанию
2. на компе на котором не работает: личная книга макросов пытается подгрузиться по пути C:\Documents and Settings\Name_user\Мои документы (естественно личной там нет, поэтому макрос и не работает) -- этот путь прописан в Excel в Параметры->Сохранение->Расположение файлов по умолчанию .

Так вот, если путь Расположения файлов по умолчанию я меняю на ...\XLSTART, то все начинает работать. но это вроде как неправильно.

и еще Расположение файлов по умолчанию и на 1-м и на 2-м компе одинаково


Может чего в реестре на Win 7 (2-ой комп) не хватает

[EducatedFool]

Такой макрос будет работать намного быстрее:

Sub Макрос1()
    Dim ra As Range: Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    ra.Value = Application.Trim(ra.Value)    'в колонке A1 удаляет хвостовые пробелы
End Sub

[VictorM]

\XLSTART, то все начинает работать. но это вроде как неправильно.

Как раз это и правильно (настройки Excel по умолчанию)
и то, в разных версиях путь может меняться
Хотя, конечно, можно расположить личную книгу макросов где угодно