Jump to content

Ocultar archivos de Word


Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • 37 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      155
    • Comments
      89
    • Reviews
      25

    Latest File
    By pegones1

    1    0

  • Crear macros Excel

  • Posts

    • Hola, perdona la demora al responder, no he podido verlo hasta hoy, me ha venido de lujo, muchas gracias 👌
    • Hola, estoy iniciandome en el tema de vba y tal, asi que intentaré explicarme lo mejor posible   Tengo un boton de comando que me abre un "userform", dentro de ese "userform" hay 2 combobox y varios "label". En el "combobox1" se me abre un listado desplegable donde me aparecen los valores "azul, verde,amarillo,rojo... etc" y el "combobox2" abre un listado con los valores que van del 1 al 100, y ahora viene el problema... yo quiero que dependiendo del valor del "combobox1", me muestre SOLO parte de ese listado de valores del 1 al 100. Es decir, al seleccionar en el "combobox1" el valor "azul" quiero que SOLO me muestre los valores del 21 al 30, si selecciono el valor "rojo" quiero que SOLO me muestre los valores del 31 al 40. y asi con cada uno de los colores. Asi que no sé si debo hacer 1 listado general con esos valores del 1 al 100, o es mejor hacerlo de otro modo. es decir, no sé como decirle algo similar en VBA a: en el combobox 2--> si combobox1es igual a "azul" entonces muestrame los valores de la tabla que van desde B46:B55, pero si combobox1 es igual a "rojo entonces muestrame los valores de la tabla que van desde B56:B65.... e ir metiendo condicionantes. El problema es que no sé como hacer esas formulaciones en VBA.   actualmente el combobox1 dice lo siguiente:  Me.ComboBox1.List = Sheets("Colores").Range("A15:A24").Value y el combobox2 dice lo siguiente:  Me.ComboBox2.List = Sheets("Valores").Range("H6:H105").Value   Como he dicho, no sé cómo hacer que el "combobox2" "desglose" ese rango de 100 valores en rangos de 10 en 10 dependiendo de lo que diga "combobox1".   A su vez, por ejemplo si en el combobox1 selecciono el azul y en el combobox2 selecciono el valor 24. hay unos "labels" que me muestran diferentes valores segun lo que diga el "combobox2", en este caso me mostraria el valor "73A4BF" esto es lo que pone en VBA de ese label1: Me.Label1.Caption = Valor1 Valor1 = Application.WorksheetFunction.VLookup(Me.ComboBox2.Value, Sheets("Valores").Range("B:G"), 2, 0)   A todo esto, decir que mi vocabulario en tema de VBA es muy basico. Por lo que cualquier ayuda agradeceria una explicacion algo detallada. Un saludo!  
    • Buenos días,   Adjunto fichero. Un saludo, Paco HOJA CALCULO.xlsx
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy