ElenaZausКонецЦикла, я забыла сказать, что мне нужен код на Visual FoxPro 6.0.
Синтаксис не зависит от версии FoxPro, поскольку требуется использовать команды собственно Word.

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

А поэтому, во-вторых, не стоит пытаться делать что-то сильно "навороченное". Простейший вариант защиты - это воспользоваться пунктом меню "Сервис" \ "Защитить документ"

Записываете макрос. Затем открываете записанный макрос, выделяете ключевое слово "protect" и нажимаете клавишу F1. Появляется справка по используемому методу. В данном случае полный синтаксис


В качестве Expression, как видно из кода макроса, выступает текущий документ. Как видно из документации, приведенный синтаксис ну очень похож на синтаксис FoxPro. Вот его и используйте. Т.е. "как есть"


Как видите, те параметры, которые не нужны и по справке не обязательны для указания, просто пропускаются (лишняя запятая в середине и не указаны последние параметры).

Кстати, если файл открывается из среды FoxPro, то может быть для "левых" пользователей просто открывать их в режиме Read-Only?


Третий параметр в методе Open() как раз и управлет тем в каком режиме Read-Only открывать документ

Можно также защитить весь файл паролем и вписывать пароль в метод Open(). Это 5 параметр

Вообще-то, Вам в любом случае стоит поучится использовать справку VBA в Office. Ну, и самостоятельно экспериментировать.

ElenaZausЯ попробовала этот способ. Все получается прекрасно, только вот теперь не могу распаролить файл. )))
Где в этом коде заложено, каким паролем мы защитили данный документ?
Повторно перечитайте мой топик, где я приводил код. Там же приведена цитата из HELP VBA по данной команде. Извините, но где в приведенном коде указан пароль, Вы должны определить сами. Это не сложно.

Как "распаролить"? Ну, очевидно, кроме команды protect() должна быть противоположная по смыслу команда. И она действительно есть. Называется unprotect().

Синтаксис в VBA имеет вид


Надеюсь, сможете "перевести" в синтаксис FoxPro по аналогии с командой protect(). Т.е. логика редактирования будет такая: открываете файл, снимаете защиту, редактируете, заново устанавливаете защиту.

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

Задача формулируется так:

Открыть приложение для редактирования файлов-картинок, но таким образом, чтобы файл открывался в режиме Read-Only. При этом, команда на открытие должна быть дана из среды FoxPro.

Собственно открыть приложение можно по ассоциации с расширением файла в системе Windows. Подробно это описано здесь

Как открыть файл в другом приложении

Однако управлять режимом Read-Only, да и вообще хоть чем-нибудь в этом приложении при таком открытии - невозможно. Это полная симуляция двойного клика мыши по имени файла в проводнике Windows.

Чтобы из приложения FoxPro можно было управлять тем приложением, в котором предполагается редактирование JPG-файла необходимо, чтобы это приложение имело COM-интерфейс, как приложения Word и Excel. Т.е. разработчики этого приложения должны предоставить какие-либо средства управления своим приложением из-вне самого приложения. Если этого нет, то ничего и не сделаешь.

Ну, правда, есть вариант менять атрибут файла или папки в которой этот файл находится. Т.е. установить атрибут Read-Only на уровне системы. Думаю, тут проще обратится к администратору, чтобы он настроил права доступа на папку, где лежат файлы картинок. Одной группе пользователей - только просмотр. Другой группе пользователей - просмотр и редактирование.

Кстати, таким же образом можно решить и проблему редактирования файлов Word и Excel.