Estamos trabajando en una aplicación en la que en ciertos casos los
usuarios tienen acceso a documentos Word generados por la aplicación,
queremos que en ciertos casos el acceso sea total: lectura y escritura
y en otros el acceso sea de sólo lectura.

La "llamada al Word" la hacemos con Shellexecute, pero no sabemos qué
hay que incluir y dónde para que la apertura del documento sea de sólo
lectura.

¿Alguien sabe qué hay que incluir en la función?


JUAN M. AFAN DE RIBERA
======================

Yo te recomiendo que siempre que puedas, utilices Automatización, pues te
dará control casi total sobre las aplicaciones. En este caso, podrías
hacerlo de la siguiente manera:

Dim oApp As Object

    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    oApp.Documents.Open FileName:="c:\mis documentos\doc1.doc",ReadOnly:=True

y bla bla bla... ...

    Set oApp = Nothing


UNA APRECIACION DEL BÚHO
========================

En la API Guide hay varias Apis para cambiar los atributos del fichero,
antes de abrile.
No obstante, lo mismo es mas facil con el comando Attrib
Lo mismo hasta esto podría funcionar (Sin haberlo probado)
Dim Cambia
Cambia = Shell("Attrib " & CurrentProject.Path & "\documento.doc +r",vbHide)
Habria que probarlo

Respuesta posterior del Búho
============================
Es que el otro día, en una exposicion de Carcar sobre abrir un fichero
en modo solo lectura estuve buscando unas APIS y resulta que Acecss 2000
y XP con la funcion 'SetAttr' lo hace de un plumazo.