Открыть книгу Excel для чтения или редактирования

[Calvin]

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

P S Сразу скажу, что пароль на чтение и редактированиие ставить нельзя...

[FireFenix]

В свойствах папки, в которой лежит файл - выставить права на запись определённому кругу лиц?

[Calvin]

у меня нет доступа для изменения прав и атрибутов папок.....

если точнее, то хотел бы узнать, можно ли в событии Workbook_open открываемой книги переопределить свойство ReadOnly.
Я понимаю, что это свойство только для чтения, но может есть какая-нибудь АПИ или какой нибудь вариант?

[Димитрий]

может быть подойдёт - примитивно проверять имя пользователя перед сохранением?

[Alec]

А переоткрыть?

Код: Выделить всё

Private Sub Workbook_Open()
  If ReadOnly Then
    Workbooks.Open Filename:=Path & "\" & Name, ReadOnly:=True
    Saved = True
    Close
  End If
End Sub


[Template]

А ежели так ?

Код: Выделить всё

Private Sub Workbook_Open()
    If Условие Then
       'Me.Save 'если появляется сообщение о сохранении между переключениями режимов
       Me.ChangeFileAccess xlReadOnly
    End If
End Sub