Libro en Solo Lectrua dependiendo PC en Uso

Con el código que dejo abajo yo quería que al abrir el libro en cuestión desde cualquier PC el mismo se abra como solo lectura salvo cuando es abierto desde la PC "LARBUE12122". Este procedimiento me tira error al querer asignar la propiedad ReadOnly del libro, para mi es porque no puede cambiar la propiedad una vez que ya esta el libro abierto como escritura. Agradezco la ayuda que puedan brindarme para dar una solución a este problema que se me generó. Gracias.

Private Sub Workbook_Open()

      Public nombre_maquina As Object
      Set nombre_maquina = CreateObject("wscript.network")
      If nombre_maquina.computername = "LARBUE12122" Then
            ThisWorkbook.ReadOnly = False
      Else
            ThisWorkbook.ReadOnly = True
      End If

End Sub