Visual Basic - Abrir word sin permisos

Life is soft - evento anual de software empresarial
   
Vista:

Abrir word sin permisos

Publicado por mlp (5 intervenciones) el 23/07/2014 08:48:36
Hola,
necesito abrir un word y que el usuario no pueda hacer nada en él, sólo visualizarlo, no modificar nada, porque en cuanto modifica, al cerrarlo, le sale la ventana de diálogo para grabar y puede abrir otros documentos.

Actualmente estoy probando con esta función que adjunto, me desactiva las barras y todas las posibles acciones, pero cuando cierro el word, si he modificado algo, me permite guardar, yo querría cerrar sin hacer caso de los cambios o bloquear el documento para que no pueda modificarlo.

Muchas gracias


Public Function AbrirDoc()
On Error GoTo ERR_AbrirDoc

Dim Word As Object
Dim i As Integer

Set Word = GetObject(, "word.Application")

Word.Documents.Open fileName:="C:\Tmp\prueba.doc", Revert:=False, ReadOnly:=True

Word.Application.CommandBars.ActiveMenuBar.Enabled = False

For i = 1 To Word.Application.CommandBars.Count
Word.Application.CommandBars(i).Enabled = False
Next

Word.Visible = True
Exit Function

ERR_AbrirDoc:
If Err.Number = 429 Then
Err.Clear
Set Word = CreateObject("Word.Application")
Resume
ElseIf Err.Number = 5273 Then
Err.Clear
Set Word = Nothing
Else
msgbox Err.Number & " " & Err.Description
End If
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Abrir word sin permisos

Publicado por Pico (114 intervenciones) el 23/07/2014 11:04:20
Por lo visto, el ReadOnly del Open no sustituye la propiedad sólo lectura del documento. O sea, manda más cómo se haya establecido la propiedad ReadOnly en el documeno que cómo la establezcas al abrirlo luego con el Open.

¿Has provado a usar el Open XML SDK?

http://msdn.microsoft.com/en-us/library/office/ff478541%28v=office.15%29.aspx
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Abrir word sin permisos

Publicado por ml (5 intervenciones) el 23/07/2014 12:55:04
Muchas gracias,
necesito hacerlo con Visual Basic 6.0, pero no encuentro ningún ejemplo ¿sabes si se puede hacer con VB 6.0?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Abrir word sin permisos

Publicado por Pico (114 intervenciones) el 23/07/2014 16:18:28
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar