Usuario solo lectura

¡ Hola !

Tengo un archivo compartido con varios usuarios en la red, el cual, sólo debe de ser modificado por uno de ellos los demás sólo lo utilizan de consulta, ésto lo logro controlar con el código que muestro abajo. De hace un tiempo para aca la persona que lo utiliza para modificar tambien le aparece como sólo lectura, al querer guardar el archivo dice que ésta utilizado por 'otro usuario', lo extraño es que desde cualquier otra PC funciona correcto el archivo con el código, pero en la PC donde se debe de modificar no funciona, he probado con lo siguiente:

- He descompartido la carpeta y compartirla nuevamente.
- He creado de nuevo el archivo.
- He cambiado el nombre del usaurio.
- He cambiado de versiones de Office (2003 y 2007).

y con ninguna de éstas formas he logrado que funcione correctamente, si alguien sabe como corregir éste caso le agrdecere su apoyo para solucionarlo.


Private Sub Workbook_Open()

If ActiveWorkbook. ReadOnly Then
Exit Sub
Else
ActiveWorkbook. ChangeFileAccess xlReadOnly
End If

If Application. UserName = "Usuario1" Then
ActiveWorkbook. ChangeFileAccess Mode:=xlReadWrite
End If
End Sub