Change ReadOnly State

[Jos Vens]

Hi,

is it possible to change the state of a workbook from readonly to readwrite
and vice versa. The workbook is in explorer NOT set to readonly.

I had this in mind, but it doesn't work (code of a excel workbook One.xls)

Function Test() 'open a workbook in readonly mode

Workbooks.Open "c:\Two.xls", False, True

End Function

Function Test2()'After some time, change the state to read/write

Workbooks("Two.xls").ReadOnly = False
[A1] = "Test"
ActiveWorkbook.Save

End Function

Function Test3() 'After the update, change the state again to readonly

Workbooks("Two.xls").ReadOnly = True

End Function

Thanks
Jos Vens

 

[Ron de Bruin]

Hi Jos

Check out the ChangeFileAccess Method in the VBA help Jos

 

[Jos Vens]

Thanks Ron,

this is what I needed!

Jos

Hi Jos

Check out the ChangeFileAccess Method in the VBA help Jos

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)

Hi,

is it possible to change the state of a workbook from readonly to readwrite
and vice versa. The workbook is in explorer NOT set to readonly.

I had this in mind, but it doesn't work (code of a excel workbook One.xls)

Function Test() 'open a workbook in readonly mode

Workbooks.Open "c:\Two.xls", False, True

End Function

Function Test2()'After some time, change the state to read/write

Workbooks("Two.xls").ReadOnly = False
[A1] = "Test"
ActiveWorkbook.Save

End Function

Function Test3() 'After the update, change the state again to readonly

Workbooks("Two.xls").ReadOnly = True

End Function

Thanks
Jos Vens