Открытие страницы в браузере при запуске файла excel.
Alexander82
Дата: Четверг, 27.04.2017, 07:57 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте! На корпоративном портале лежит инструкция. При запуске файла excel необходимо, чтобы открывалась страница инструкции через дефолтный браузер. Пытался найти решение, но большинство примеров выполняются с ошибкой. По возможности открытие страницы ограничить одноразовым запуском.
Здравствуйте! На корпоративном портале лежит инструкция. При запуске файла excel необходимо, чтобы открывалась страница инструкции через дефолтный браузер. Пытался найти решение, но большинство примеров выполняются с ошибкой. По возможности открытие страницы ограничить одноразовым запуском. Alexander82
Ответить
Сообщение Здравствуйте! На корпоративном портале лежит инструкция. При запуске файла excel необходимо, чтобы открывалась страница инструкции через дефолтный браузер. Пытался найти решение, но большинство примеров выполняются с ошибкой. По возможности открытие страницы ограничить одноразовым запуском. Автор - Alexander82 Дата добавления - 27.04.2017 в 07:57
KuklP
Дата: Четверг, 27.04.2017, 08:08 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Ну и в модуль книги: [vba]Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(1).[e9].Clear End Sub Private Sub Workbook_Open() On Error Resume Next Sheets(1).[e9].Hyperlinks(1).Follow True End Sub
[/vba]
Ну и в модуль книги: [vba]Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(1).[e9].Clear End Sub Private Sub Workbook_Open() On Error Resume Next Sheets(1).[e9].Hyperlinks(1).Follow True End Sub
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Ну и в модуль книги: [vba]Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(1).[e9].Clear End Sub Private Sub Workbook_Open() On Error Resume Next Sheets(1).[e9].Hyperlinks(1).Follow True End Sub
[/vba] Автор - KuklP Дата добавления - 27.04.2017 в 08:08
Alexander82
Дата: Четверг, 27.04.2017, 08:34 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Складывается впечатление, что первое сообщение пропущено.
Складывается впечатление, что первое сообщение пропущено.Alexander82
Ответить
Сообщение Складывается впечатление, что первое сообщение пропущено.Автор - Alexander82 Дата добавления - 27.04.2017 в 08:34
KuklP
Дата: Четверг, 27.04.2017, 08:36 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Попробуйте то, что есть
Попробуйте то, что есть KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Попробуйте то, что есть Автор - KuklP Дата добавления - 27.04.2017 в 08:36
Alexander82
Дата: Четверг, 27.04.2017, 09:10 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Не сразу понял, что к чему, но лучше поздно, чем никогда) Ваш вариант прекрасно подходит, спасибо.
Не сразу понял, что к чему, но лучше поздно, чем никогда) Ваш вариант прекрасно подходит, спасибо. Alexander82
Ответить
Сообщение Не сразу понял, что к чему, но лучше поздно, чем никогда) Ваш вариант прекрасно подходит, спасибо. Автор - Alexander82 Дата добавления - 27.04.2017 в 09:10