Change ReadOnly State

  • Thread starter Thread starter Jos Vens
  • Start date Start date
J

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
 
Thanks Ron,

this is what I needed!

Jos

Ron de Bruin said:
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
Click to expand...
Click to expand...
 
Back
Top