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

Hi Jos

Check out the ChangeFileAccess Method in the VBA help Jos

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jos Vens" wrote in message ...
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

Thanks Ron,

this is what I needed!

Jos

"Ron de Bruin" schreef in bericht
...
Hi Jos

Check out the ChangeFileAccess Method in the VBA help Jos

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jos Vens" wrote in message
...
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