сабж. В частности нужно запустить totalcomander с открытой папкой путь к которой задается. В VBA я впервые но опыт программирования есть

Пасибо, с самим макросом разобрался
Sub MAIN()
program = "C:\Program Files\Total Commander\Totalcmd.exe C:\ F:\"
TaskID = Shell(program, 1)
End Sub


, а как теперь его скрестить с гиперссылкой? Чтобы по клику срабатывал макрос.
не откажусь от файлика доковского :)

и еще сразу такой вопрос. Можно ли сделать так, чтобы в самом документе была бы строчка например такого формата
path = C:/Program Files/Total Commander/cmd.exe;

а потом макросом считать это значение и использовать его при открытии внешнего файла?

Сергей06,

вобщем объясню ситуацию (надо было с самого начала сделать).
У меня должен быть доковский файлик (именно док ибо "эксель это для домохозяек" как говорит начальник). В нем так называемая "база данных". Т.е. обычная табличка, в одном из столбцов которой находится ссылка на расположение файла. НО! если бы это была обычная гиперссылка, коорая открывалась бы проводником, то проблем нет. НО! начальник говорит "проводник для домохозяек, хочу Totalcommander". Т.е. такой формат

path = "C:\Program Files\Total Commander\Totalcmd.exe";

файл1 123кб 7мешковкартошки <ссылка | C:\dataBase\файл1.bin>
файл2 122кб 3мешковкартошки <ссылка | C:\dataBase\файл2.bin>
файл3 125кб 1мешковкартошки <ссылка | C:\dataBase\файл3.bin>

А в самом начале типа путь к файлу Totalcmd.exe. А то вдруг он на компе у кого в другом месте лежит.

То есть нажав на "ссылку", я запускаю свой макрос. Который считывает path к коммандеру и подсовывает ему путь к искомому файлу. Т.е. в конце концов должно получиться так:

Sub MAIN()
program = "C:\Program Files\Total Commander\Totalcmd.exe C:\dataBase\файл1.bin"
TaskID = Shell(program, 1)
End Sub

Возможно path можно не реализовывать... если что можно макрос подправить. А вообще реально ли запустить макрос по какому нибудь событию?

а пример можно, например по сохранению документа выдать месадж бокс ?

Жесть конечно вы придумали :)

Вот че придумал. Перехватываю событие открытие гиперссылки. Единственное, это все работает толко если правой кнопкой нажимать,а потом открыть гиперссылку. Обычный клик не перехватывается. И еще обязательно писать абсолютный путь, иначе командер не откроет нужны путь

Sub HyperlinkOpen()
'
' HyperlinkOpen Макрос
' Открыть
'
'Selection.Range.Hyperlinks(1).Follow AddHistory:=True
If Selection.Range.Hyperlinks.Count >= 1 Then

program = "C:\Program Files\Total Commander\Totalcmd.exe " + Selection.Range.Hyperlinks(1).Address + " " + Selection.Range.Hyperlinks(1).Address
MsgBox program
TaskID = Shell(program, 1)
End If
End Sub