Ocultar archivos de Word

[JAI2009]

Hola amigos del for.

Mi pregunta es la siguiente.

Mientras en Excel, se pueden ocultar hojas de un libro mediante macros,

en Word se pueden ocultar a fin de que lño puedan ver

Un Saludo y gracias.

[logroastur]

Buenas puedes usar al igual que en Excel el evento Open para ocultar la aplicación

Seria colocar en el módulo ThisDocument del documento lo siguiente

Private Sub Document_Open()
    Application.Visible = False
End Sub

Un saludo

[JAI2009]

Gracias por tu interes en el tema.

Intento y pongo el codigo en el archivo de Word., pero causas ajenas a mi voluntad , que seguro que hago algo mal no me funciona.

Saludos

[logroastur]

Buenas chequea archivo

Un saludo

OcultarWord.rar

[JAI2009]

Buenas amigo.

al abrir el fichero se bloquea??

para retomar mi solicitud:

Tengo una carpeta con dos documentos, pero uno de ellos no me gustaria que lo vieran leyesen,

por eso me gustaria poder ocultar el archivo

Saludos

[logroastur]

Buenas si lo que deseas es que no se pueda ver el archivo lo que puedes hacer es ocultar el archivo en la carpeta.

Bien de forma manual con clic derecho propiedades y marcas en Atributos oculto

o bien bajo código

en word

en el modulo ThisDocument del archivo si deseas que se ejecute solamente cuando se abra el archivo

o en el modulo ThisDocument de Normal para que se ejecute en todos los archivos pero entonces debes de cambiar el path asignado a la variable a e indicar el path de forma manual es decir colocar el path completo del archivo a ocultar

Private Sub Document_Open()
    Dim a As Variant
    a = ThisDocument.Path & Application.PathSeparator & "Nombre archivo con extensión"
    SetAttr a, vbHidden
End Sub

Un saludo

[JAI2009]

Hola Logroastur.

Gracias por la lección

Un abrazo