Ошибка 424 на строке с ActiveDocument.ReadOnly ?

[Snekich]

На код
выдает ошибку Ошибка 424 Object required
на строке If ActiveDocument.ReadOnly <> True Then

Sub Вывод_результата()

If ActiveDocument.ReadOnly <> True Then

m = InputBox("Внимание, свой результат можно посмотреть ТОЛЬКО ОДИН раз. Введи СВОЮ фамилию:", "Кто здесь?")
......................
......................
ThisWorkbook.Save ' принудительное сохранение
Else: MsgBox "Нельзя узнать результ, если файл открыт только для чтения"
End If
End Sub

В инете смотрел примеры - вроде ошибки не должно быть...
Подскажите в чем причина?

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


И попутно вопросик.
А как можно сделать привязку файла к компьютеру на котором он лежит (или к полному пути) т.е. что бы файл лежал в сетевой папке и только из нее все макросы работали, а если скопировать его на свой комп, то макрос бы не стал выполняться и выдал сообщение об этом.

[аналитика]

ActiveDocument - это ворд
ActiveWorkbook - это ексель

[Snekich]

Сообщение от аналитика

ActiveDocument - это ворд
ActiveWorkbook - это ексель

Спасибо.

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

[аналитика]

в каждый макрос напиши:

if not checkPath then msgbox "макросы работают только...": exit sub

соотв-но функция проверки:

public function checkPath () as boolean
   checkPath = (thisworkbook.path="x:\xx\xxx")
end function

[Snekich]

Сообщение от аналитика

в каждый макрос напиши:

if not checkPath then msgbox "макросы работают только...": exit sub

соотв-но функция проверки:

public function checkPath () as boolean
   checkPath = (thisworkbook.path="x:\xx\xxx")
end function

Спасибо, заработало как надо.

Будете смеяться, но файл нужен для банальной жеребьевки в отделе кто-кого поздравляет на какой-нибудь праздник :D
Надо было сделать так, что бы файл сам распределял и никто и никак (на уровне пытливого пользователя) не мог посмотреть результаты жеребьевки кроме своего. Желаемого результата вроде как добился, пока исключил все возможные способы, которые мне пришли в голову, узнать "чужие результаты" (ну и файл запоминает все, что можно о том кто уже в него заходил).
А то с "листочками из шляпы" были вечные проблемы - постоянно кто-нибудь вытягивал сам себя. :D

Теперь "детская интрига" сохраняется до праздника. И главное - все по честному)))