Hi,
You could try
ActiveWorkbook.ChangeFileAccess Mode:=xlreadonly
ActiveWorkbook.ChangeFileAccess Mode:=xlreadwrite

or you could use the filesystemobyect on a colsed file - attribute 1 for readonly or 0 for write
so c:file.ext,1,false

hope this helps