Доброго дня. Необходимо проверить расположенный на удаленном компьютере файл на возможность записи в него (т.е. проверить, не открыт ли он у кого), если "только чтение" - останов, иначе  - MsgBox "Сейчас вы можете внести данные в файл"....

Application.Workbooks.Open с параметром Notify:=False - и лови ошибку.

Akina, подскажи, где про это можно подробней прочитать? 

Во встроенной справке.

Вот что выдала справка:

Notify   Optional Variant. If the file cannot be opened in read/write mode, this argument is True to add the file to the file notification list. Microsoft Excel will open the file as read-only, poll the file notification list, and then notify the user when the file becomes available. If this argument is False or omitted, no notification is requested, and any attempts to open an unavailable file will fail.

почему выдает ошибку:



не указано явно как использовать свойства, а примера нет. ошибка синтаксиса.

и кстати, как обращаться к poll the file notification list чтобы сделать проверку?

Потому что думать надо прежде чем код писАть.
Какого хрена параметры процедуры взяты в скобки???

Akina,  ну извини, в этом VBA черт ногу сломит...

поразмыслив, пришел к выводу, что данное решение к моей ситуации не применимо, т.к. я не открываю явно книгу, а подключаю и использую в документе собственную надстройку "dtb" (представляющую собой обыкновенную таблицу Excel) с помощью кнопки с таким кодом:



предварительно подключается эдд-ин dtb в файле personal.xls:



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

большая просьба помочь с кодом   

Это сообщение отредактировал(а) kashemirny - 8.12.2009, 17:37

Этот код переводит надстройку из статуса "надстройка" в статус "книга обыкновенная, открытая в режиме hidden".

именно так! после открытия hidden-книги пользователь вносит наименование заказчика, все реквизиты и нажимает кнопку "Сохранить и выйти", имеющую такой код:



НО:
если dtb.xla открыта только для чтения, то в результате выполнения вышеприведенного кода возникает ошибка и зачастую Excel зависает. хотелось бы выполнить проверку доступности dtb.xla на стадии открытия его из personal.xls.

Тогда используй не ЭтаКнига.Save, а ЭтаКнига.SaveAs с тем же именем и соответствующим ConflictResolution.