Change Read-Only Status (Excel '97)

[phendrena]

Good morning,

Is it possible to change the Read Only status of a workbook once it has been opened via VBA?

Thanks,

[shamsam1]

Function IsReadOnly(sWorkBook As String) As Boolean
Dim sFileFullName As String
sFileFullName = Workbooks(sWorkBook).FullName
If vbReadOnly Then
IsReadOnly = True
Else: IsReadOnly = False
End If
End Function

Sub test()
'change activeworkbook.name to any file you want to test
If IsReadOnly(ActiveWorkbook.Name) Then MsgBox "This workbook is read only"
End Sub

[phendrena]

Thanks for the reply.
Thats not actually what i'm trying to do though.

I need to change the status of the workbook from or to Read-Only.