como proteger un archivo excel generado desde VB - VB-MUNDO

esofia1 · #1 (**permalink**) 05-09-2005, 16:02:59

Hola a todos,
he buscado la documentación que ya se encuentra en el foro acerca de VB 6.0 y Excel y me ha ayudado bastante pero hay algo que todavia no encuentro, tengo un documento excel generado desde vb 6.0 y quiero saber si hay alguna forma de impedir que este documento sea modificado, ya use la opcion de Save as con password para que el documento sea solo de lectura pero tambien quisiera evitar que el documento sea guardado con otro nombre y asi poder ser modificado... espero que alguien tenga la idea de como hacer esto...
Gracias,Elena

Ronald_Leon_Madrid · #2 (**permalink**) 06-09-2005, 02:07:50

Hola :

que tal un gusto en saludarte, me parece a ver visto una opcion de una propiedad del objeto, como para desactivar opciones dentro del menu de archivos de un archivo excel, en el FTP Gratuito hay bastante información al respecto, quizas te pueda ayudar.

Saludos cordiales,

J.M.Movilla · #3 (**permalink**) 06-09-2005, 10:59:26

Me parece, amiga Elena, que estás mezclando diversos conceptos; o soy yo que no te entiendo muy bien.

Hablas de proteger el documento Excel, lo cual consigues con .Protect aplicado al objeto Excel.Worksheet.

Luego hablas de "Save as con password para que el documento sea solo de lectura", lo que no encaja, ya que una cosa es asignar una contraseña con lo que evitar que pueda abrirse el fichero sin conocer ese password, y otra cosa es que el fichero sea de sólo lectura.

Y finalmente, pedir que nadie pueda grabar ese fichero con otro nombre o que pueda "entrarle" para desprotegerle y modificarle... eso es tanto como pedir peras al olmo... Se lo harás más o menos difícil, pero asegurar que un fichero nadie te lo pueda modificar... no ha nacido nadie capaz de conseguirlo (o es muy jovencito y yo no lo conozco...)

Proteje el libro y guárdalo con contraseña... Y advierte a la empresa que si alguien hace modificaciones en ese fichero se hará responsable del mal funcionamiento del programa... Y a esperar que la gente sea responsable.

esofia1 · #4 (**permalink**) 06-09-2005, 19:55:45

Gracias Ronal y José María... disculpen si más bien si no fui muy clara en lo que necesitaba, el tema es que necesitaba que un archivo de excel no sea modificado de cualquier manera, lo primero que se me ocurrió fue salvarlo con una clave, pero si lo guardaban con otro nombre esto ya no servia de mucho, seria excelente lo que me comentas Ronald acerca de ocultar el menú principal del excel, voy a buscar más acerca de esto.
Por ahora tendré que recurrir a la recomendación que me das José María acerca de los usuarios.
saludos!
Elena.

J.M.Movilla · #5 (**permalink**) 06-09-2005, 20:20:15

Yo tengo ese mismo problema en varias de mis aplicaciones, y lo resuelvo de esta forma:

Código:

    cTemp = Left(App.Path, 2) & "\FICHEROTEMPORAL.xls"
    '  Borro este fichero si lo tengo creado anteriormente
    DeleteAFile (cTemp)  
    cFich = App.Path & "\Datos\HOJAQUEQUIEROCONSERVAR.xls"
    FileCopy cFich, cTemp
        
    ' Carga los objetos de Excel
    .
    .
    ' Abro el Libro de trabajo con la Hoja_Copia
    Set xEb = xEa.Workbooks.Open(cTemp)

Como puedes comprender, por muchos cambios que hagan en la hoja, lo harán sobre la copia, preservnado el original.

Claro que esto me sirve para "lo que me sirve"... que pudiera ser que no tenga nada que ver con lo que tú necesitas...

Esta es la rutina para borrar ficheros, que tengo en un Módulo...

Código:

Sub DeleteAFile(EspecArch)
    Dim fso
    
    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.deletefile (EspecArch)
End Sub