Открыть файла из листа используя UserForm

[Starbirst]

Доброго времени суток! Ребята, помогите, пожалуйста, доработать обработку событий:
Алгоритм в зависимости от выбранного значения примерно следующий:
1. Нажатие на кнопку "Открыть":
- открывается прикрепленный файл pdf, который лежит внутри книги Excel;
- далее книга Excel закрывается, а файл pdf продолжает оставаться открытым пока пользователь не закроет его.
2. Нажатие на кнопку "Скачать":
- открывается окошко "Сохранить как...", пользователь сохраняет файл;
- далее книга Excel закрывается, а сохраненный файл pdf автоматически открывается.
Желательно, чтобы обычный пользователь не имел доступа к листам, не имел возможности поправить макрос - пусть она будет даже зашита паролем или другим надежным способом.
В макросах не силен. Заранее спасибо!

[boa]

Внимание! автор приложил файл с автозапуском формы и скрытием Application

[RAN]

boa, спасибо, не полез

помогите, пожалуйста, доработать обработку событий:

Пожалуйста

Код (vb) Выделить Развернуть

Sub Открыть()
    Call MyMacros
    ThisWorkbook.Close False
End Sub

Sub Скачать()
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            ThisWorkbook.SaveAs (.SelectedItems(1))
            Call MyMacros
            ThisWorkbook.Close False
        End If
    End With
End Sub

Sub MyMacros()
' 1. код для извлечения PDF из xls* (и сохранания на диск?)
' 2. код для открытия PDF в приложении по умолчании ( или нужном)
End Sub


[Starbirst]

Как сделать, чтобы при нажатии на кнопку открывался pdf файл, а Excel закрывался автоматически?

[boa]

Добрый день,
чё то мне не хочется открывать ваши файлы...
но подсказку дам.
для закрытия Excel используйте

Код (vb) Выделить Развернуть

Application.Quit
а уж для извлечения и открытия файла PDF, я так понимаю, код у вас уже есть

[Starbirst]

Файл excel открывается, никаких опасных кодов не содержит. Проблема в том, что после открытия файла pdf открывается еще файл excel, а хотелось бы, чтобы он закрывался, а pdf оставался открытым.