Proteger Excel

Unas preguntas: ¿Cómo esperas que Excel "adivine" que la persona que
quiere abrir el fichero está [o no está] "autorizada" para ello???
¿Cómo puede saberse (Excel o cualquier persona) que ese fichero ha
sido conseguido "sin autorización"???

Dicho esto, una alternativa sería guardar el archivo con contraseña,
de forma que sea necesario conocerla para abrirlo. Aunque hay que
advertir que existen programas capaces de desbloquear fácilmente, en
Excel, cualquier password de apertura...

:-)

Hola a
Tengo un libro de excel con varias hojas que me ha costado mucho trabajo
realizar, no por la complejidad, sino por la cantidad de datos que tiene y
la confidencialidad de estos.
Seria posible que si ese libro de excel cayera en manos no autorizadas se
pudiera borrar a partir de una fecha concreta. Es decir si alguien obtiene
ese fichero sin autorizacion, el dia 1 del mes siguiente se borrara el
fichero automaticamente, por medio de alguna macro o similar.
Muchas gracias a todo por vuestra ayuda.
Un saludo

Mi pregunta es: si ese archivo cae en manos no autorizadas lo podra usar
hasta que llegue el dia 1 del mes siguiente, es decir si el dia uno abro ese
archivo y modifico una instruccion en la que le pongo la fecha 1-09-2007 se
puede usar hasta esa fecha, llegada esa fecha tendre que volver a modificar
la fecha de esa instruccion o macro o lo que sea y ponerle 1-10-2007 asi
sucesivamente, si no lo hago se borra el fichero.
Se que puede parecer engorroso pero hay programas que crackean contraseñas
por lo que no me interesa ponerle una contraseña. De esta manera el que lo
habra no sabra que se borrara el fichero el dia 1 del mes, con lo cual tengo
una proteccion relativa pero eficaz. (eso creo).
Se acepta alguna otra sugerencia. pero lo importante es que se borre el
fichero.
Muchas gracias por tu interes y un saludo

escribió en el mensaje
news:
Unas preguntas: ¿Cómo esperas que Excel "adivine" que la persona que
quiere abrir el fichero está [o no está] "autorizada" para ello???
¿Cómo puede saberse (Excel o cualquier persona) que ese fichero ha
sido conseguido "sin autorización"???

Dicho esto, una alternativa sería guardar el archivo con contraseña,
de forma que sea necesario conocerla para abrirlo. Aunque hay que
advertir que existen programas capaces de desbloquear fácilmente, en
Excel, cualquier password de apertura...

:-)

Hola a
Tengo un libro de excel con varias hojas que me ha costado mucho trabajo
realizar, no por la complejidad, sino por la cantidad de datos que tiene y
la confidencialidad de estos.
Seria posible que si ese libro de excel cayera en manos no autorizadas se
pudiera borrar a partir de una fecha concreta. Es decir si alguien obtiene
ese fichero sin autorizacion, el dia 1 del mes siguiente se borrara el
fichero automaticamente, por medio de alguna macro o similar.
Muchas gracias a todo por vuestra ayuda.
Un saludo

hola, Luis !

... si ese archivo cae en manos no autorizadas lo podra usar hasta que llegue el dia 1 del mes siguiente
... si el dia uno abro ese archivo y modifico una instruccion en la que le pongo la fecha 1-09-2007 se puede usar hasta esa fecha
llegada esa fecha tendre que volver a modificar la fecha de esa instruccion o macro o lo que sea y ponerle 1-10-2007
asi sucesivamente, si no lo hago se borra el fichero.
... hay programas que crackean contrase#as por lo que no me interesa ponerle una contrase#a.
... el que lo habra no sabra que se borrara el fichero el dia 1 del mes, con lo cual tengo una proteccion relativa pero eficaz. (eso creo).
Se acepta alguna otra sugerencia. pero lo importante es que se borre el fichero.

1) que debiera significar -> "1/10/2007" ???
uno de octubre de 2007 ?
enero diez de 2007 ?
'como la interprete' el codigo dependera del formato de fecha en la configuracion regional del equipo donde se ejecute
-> es 'recomendable' evitar instrucciones de interpretacion 'ambigua' o insegura [sobre todo con las fechas]
te sugiero cambiar por funciones 'seguras' [p.e.] -> DateSerial(Year, Month, Day)

2) comentado lo anterior, prueba el siguiente codigo en el modulo del libro [ThisWorkbook]
OJO: usalo con un archivo de prueba, porque una vez *auto-eliminado* [probablemente] no volveras a *verlo* ;)
[OJO tambien si alguna vez se te olvida que al abrirlo despues del ultimo dia del mes en curso se auto-elimina]
y no se te olvide que las macros pueden ser *evitadas* [y/o al menos los eventos de apertura] -???-

Private Sub Workbook_Open()
If Date < DateSerial(2007, 10, 1) Then Exit Sub
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Para que funcione con una cierta seguridad, el libro como minimo tiene que
tener 2 hojas, pues como sabes si el usuario final no acepta la macro puede
acceder a los datos, para evitarlo tienes que tener 2 hojas una la podrias
llamar por ejemplo aviso (donde le pones una nota que tiene que acceptar la
macro.

En el modulo del libro ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Hoja1").Visible = xlVeryHidden
ActiveWorkbook.Save
End Sub

y

Private Sub Workbook_Open()
Worksheets("HOJA1").Visible = xlSheetVisible
If Date < DateSerial(2007, 8, 1) Then Exit Sub 'aqui va la fecha a partir de
la que es destruira el libro
Application.DisplayAlerts = False
MsgBox "Este se libro se autodestruira, la información que contenia ya no és
vàlida"
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End Sub

No se si me explique, espero que te sea de utilidad.

Pau




: Hola a
: Tengo un libro de excel con varias hojas que me ha costado mucho trabajo
: realizar, no por la complejidad, sino por la cantidad de datos que tiene y
: la confidencialidad de estos.
: Seria posible que si ese libro de excel cayera en manos no autorizadas se
: pudiera borrar a partir de una fecha concreta. Es decir si alguien obtiene
: ese fichero sin autorizacion, el dia 1 del mes siguiente se borrara el
: fichero automaticamente, por medio de alguna macro o similar.
: Muchas gracias a todo por vuestra ayuda.
: Un saludo
:
: