Жестко зафиксировать пути к макросам.

[sonata]

Вопрос о сохранении пути к макросам.
Есть файл. Лежит на сервере.
Путь: \\Serv_nt2\1\buh14\Банки\Банки.xls
Иногда приходиться сохранять файл локально:
Путь:C:\Windows....
В файле есть настраиваемые панели с кнопками и с макросами.
При сохранении файла в другое место: "Сохранить как:" естественно
пути переопределяются и заменяются новыми, а мне их нужно жестко
зафиксировать. Как это можно сделать? Если можно поподроьнее...

[GSerg]

Объявляем в модуле класса документа событие Workbook_BeforeSave, и в оном присваиваем желаемой кнопке OnAction = YourStringConst

[sonata]

Как правильнее так:

Application.CommandBars("Настраиваемая 1").Controls(1).OnAction = "'" + ThisWorkbook.FullName + "'!ВЛ19"

или так:

Application.CommandBars("Настраиваемая 1").Controls(1).OnAction = "'!\\Serv_nt2\1\buh14\Банки\Банки.xls!ВЛ19"

И как правильно расставить апострофы?Для чего они нужны?

[RayShade]

Не апострофы, а кавычки

Нужны они для того, чтобы компилятор интрепретировал то что между ними как строку



А правильнее второй вариант, так как если путь надо прописывать жестко, то лучше его явно указать

[sonata]

Ругается при сохранении ...
Ошибка компиляции...
Sub Workbook_BeforeSave()

[RayShade]

А что именно за ошибка? Можно ли увидеть код в, так сказать целом виде?

[sonata]

Все как подсказывали, только я слегка сократила код, у меня этих макросов гораздо больше, но все они однотипные...
Sub Workbook_BeforeSave()

Application.CommandBars("Настраиваемая 1").Controls(1).OnAction = "'" + ThisWorkbook.FullName + "'!ВЛ19"
Application.CommandBars("Настраиваемая 1").Controls(1).OnAction = "'!\\Serv_nt2\1\buh14\Банки\Банки.xls!ВЛ19"
Application.CommandBars("Настраиваемая 1").Controls(2).OnAction = "'!\\Serv_nt2\1\buh14\Банки\Банки.xls!ГР12"
Application.CommandBars("Настраиваемая 1").Controls(3).OnAction = "'!\\Serv_nt2\1\buh14\Банки\Банки.xls!ГР16"

End Sub

[corgi]

а где параметры передаваемые функции

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

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'твой код
End Sub