Код VBA для автоматического сохранения копии моей книги только для чтения

Question

У меня есть рабочая книга, из которой работают и редактируют несколько человек, однако я хотел бы иметь возможность сохранять свои изменения без необходимости постоянно «сохранять как». Я придумал приведенный ниже код, чтобы сохранить копию рабочей книги в другом месте, но как я могу сохранить ее как файл только для чтения, который не будет редактироваться каждый раз, когда кто-то входит и нажимает кнопку «Сохранить»?

спасибо заранее.

Sub Workbook_BeforeSave(ByVal _
  SaveAsUI As Boolean, Cancel As Boolean)
    With ThisWorkbook
        .SaveCopyAs ("G:\Admin\AG\backup of " & .Name)
    End With
End Sub

Answer 1

Я использовал что-то подобное в прошлом

Sub SetFileReadOnly(strPath As String)

Dim o As Object
Dim fl As Object

Set o = CreateObject("scripting.filesystemobject")

Set fl = o.getfile(strPath)
fl.Attributes = 1

Set o = Nothing
Set fl = Nothing

End Sub