Проверка на файл!

[SStone]

Ребят, подскажите, как написать макрос проверки на файл?
К примеру, необходимо, чтобы при открытии экселевского файла, он проверял есть ли файл 1.exm папке С:/., если файл отсутсвует, то эксель не открывал данный файл или завершал работу!
Заранее благодарен!

[EducatedFool]

Sub test()
    ПутьКФайлу = "C:\Documents and Settings\Игорь\Рабочий стол\данные.xls"
    If Dir(ПутьКФайлу) = "" Then Exit Sub   ' файл не найден

    On Error Resume Next: Set wb = Workbooks.Open(ПутьКФайлу)
    If wb Is Nothing Then Exit Sub    ' файл не открылся по какой-то причине
    ' ... работаем с открытой книгой
    wb.Close
End Sub

[SAS888]

Можно чуть проще. Не проводить никакой проверки, а просто открывать требуемый файл, игнорируя возможную ошибку при отсутствии файла:

Private Sub Workbook_Open()
    On Error Resume Next: Workbooks.Open ("C:\Temp\test.xls")
End Sub

P.S. Этот код должен быть расположен в модуле "Эта книга".

[SStone]

Ребят , спасибо... Видимо я не корректно выразился...
Необходимо сделать так, чтобы Книга не смогла запуститься без определенного файла (имеющего заданное имя и расширение)! Т.е., так сказать, файла-ключа! Если его нет, то Книга не открывается!

P.S. EducatedFool, немного не разобрался с Вашим макросом!

[EducatedFool]

Private Sub Workbook_Open()
    ФайлКлюч = "C:\config.xml" ' прописываем здесь полный путь к любому файлу'
    'если файл "ключа" не найден, то сразу же закрываем эту книгу
    If Dir(ФайлКлюч) = "" Then ThisWorkbook.Close False
End Sub

Книга Excel, содержащая этот макрос, будет сразу же закрываться при попытке открытия, если файл ключа "C:\config.xml" отсутствует.

[risen]

При открытии файла экселя вылетает окно Предупреждения системы безопасности. Если в нем нажать "отключить макросы" то с файлом можно работать и без файла ключа. Как эсделать так чтобы макросы работали всегда и предупреждение не вылетало (не используя низкий уровень безоасности, так как на любом другом компе с уровнем выше среднего предупреждение будет срабатывать)?

[КаМММ]

Чтобы с книгой нельзя было работать без макросов нужно скрыть листы перед закрытием книги и поставить на них повышенную скрытость.
А чтобы нельзя было их открыть зайдя в редактор надо проект тоже запаролить.
Но даже в этом случае я могу открыть файл Опенофисом и его раскурочить так как нужно мне лично.
Так, что если мечта об защите на интелектуальную собственность имеется, прощайся с ней заранее.
С другой стороны у меня тоже в файле защита строится на файле ключа.
Слава богу большая часть пользователей владеет экселем на уровне "чайника" и не может вскрыть даже просто спрятанные ярлычки листов, не то, что скрытый лист.
С другой стороны, на всех маломальски интересных программах имеются кряки или таблетки.
Так что если захотят сломать - сломают!
Вопрос только в том, кому оно вообще нужно.