............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Codigo para borrar un archivo

Ver el tema anterior Ver el tema siguiente Ir abajo

Codigo para borrar un archivo

Mensaje por msylvestre66 el Miér Oct 27, 2010 6:27 pm

Buenas tardes.

Espero que me puedan ayudar con este codigo.

La idea es que si no se accede con el password correctamente en 3 intentos, el mismo sistema windows borre el archivo. (killer)

Estuve haciendo pruebas y recopilaciones de codigos, pero no me ha funcionado.
alguien me puede orientar en donde me equivoque?

Muchas gracias
________________________
En el Módulo ThisWorkbook:

Private Sub Workbook_Open()
If Password #1234# Then AnularAcceso
End Sub

En un módulo General:

Sub AnularAcceso()
Application.DisplayAlerts = False
Windows(ThisWorkbook.Windows(3).Caption).Visible = False
AnularAccesoForm.Show
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
End Sub
____________________
avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por GalileoGali el Miér Oct 27, 2010 10:02 pm

Aclara lo siguiente
Cuando pones Password, a cual te refieres: apertura de Libro, estructura de libro, de hoja????

La idea es abrir el archivo desde sí mismo?
Es decir pretendes que corran macros que corren con la apertura de un archivo, aun cuando el evento abierto no se produzca?

Calculo que lo que pides puede hacerse, definiendo una variable de entorno, con informacion del Task Pane, pero el evento se intento tres veces abrir determinado archivo debería disparar se en Windows, alguna API???? MMMMM

De todas maneras me queda investigar por el lado del evento open para la clase workbook considerando al efecto módulos de clase

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Jue Oct 28, 2010 11:04 am

El password, es para abrir el libro.
El mismo puede tener otro password, para su estructura.
Pero la idea es que si no le das el password correcto para abrirlo en tres intentos,
el sistema de windows lo borre.
Algo asi como Menu: Archivo/eliminar
avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por GalileoGali el Jue Oct 28, 2010 12:09 pm

Con VBA lo veo imposible

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Jue Oct 28, 2010 1:02 pm

Bien, muchas gracias por el tiempo.
No siempre se puede lo que se desea.

avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Jue Oct 28, 2010 2:31 pm

Bueno, pues ya que no lo puedo asesinar, le cambio de nombre, con una extension x (en este caso .00)
con eso se vuelve un archivo x para windows.
(nadie sabria que es un archivo .xls) Excepto Yo.
Entonces el efecto es el mismo de borrarlo, pero sin perder el archivo.

Ahora solo me falta...
Como hacer para que excel, sepa que el password es o no correcto.
con las 3 opciones, y que ejecute el rename.
asi que buscare algo en el foro de proteccion con contraseñas.
en exceluciones alguna vez vi, el proteger con tiempo la contreña.
Si alguien sabe, hecheme una manita.

Gracias.

________________________
Para abrir un archivo: (desde otro archivo abierto)

Sub Mko1a()

ChDir _
"C:\Documents and Settings\CONTABILIDAD\Mis documentos\tools"
Workbooks.Open Filename:= _
"C:\Documents and Settings\CONTABILIDAD\Mis documentos\tools\Libro2.xls"
Range("a1").Select
Windows("oct.xls").Activate
End Sub

Para renombrar el mismo archivo:
Sub Mko2a()


Application.Run "oct.xls!Mko1a"
Windows("Libro2.xls").Activate
ChDir "C:\Documents and Settings\CONTABILIDAD\Escritorio"
ActiveWorkbook.SaveAs Filename:= _
"C:\Exc\rename L2.00" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("b1").Select
ActiveWindow.Close
End Sub
_________________________

avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por avalencia el Vie Oct 29, 2010 11:53 am

Como bien dice mi amigo Gali, usando la contraseña de apertura del archivo, pues no se puede lograr lo deseado

se me ocurre que una alternativa es usar un UserForm y/o un InputBox para solicitar la contraseña, y que la cantidad de veces se vaya almacenando en una celda y si llega a 3, pues se elimine el archivo

¿Desventajas? Pues la seguridad del Office no es la ideal, y seria facil "saltarse" dicho pedido de clave y/o entrar a las macros. Pero bueno, si Excel se quiere usar para eso, ya sabemos que no es lo ideal en temas de seguridad

Saludos

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Vie Oct 29, 2010 12:10 pm

Muchas gracias por tu idea abraham.

cierto, excel es limitativo en cuanto a seguridad.
Pero es cierto tambien, que no cualquier mortal puede darle el brinco.

Hablamos de personas con conocimientos de programacion, como minimo.
en fin.






avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por avalencia el Vie Oct 29, 2010 1:39 pm

Una opcion seria colocar algo haciendo uso del evento Open del Libro:

Private Sub Workbook_Open()

Dim strclave$

Application.Visible = False
strclave$ = InputBox("Ingresa la clave secreta")

If strclave$ <> "CLAVE" Then
Worksheets("Hoja3").[A1] = Worksheets("Hoja3").[A1] + 1

If Worksheets("Hoja3").Range("A1").Value = 3 Then
Application.DisplayAlerts = False
With ActiveWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
Application.DisplayAlerts = True
Exit Sub
End If

ThisWorkbook.Close True
Exit Sub

End If

Application.Visible = True
End Sub

Ya queda en tus manos evitar que se vean hoja si no se habilitan las macros, proteger las macros, etc

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Vie Oct 29, 2010 3:32 pm

Gracias Abraam,
lo voy a probar.
Te lo agradezco.

avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por moises melgar el Vie Oct 29, 2010 3:54 pm

avalencia escribió:
¿Desventajas? Pues la seguridad del Office no es la ideal, y seria facil "saltarse" dicho pedido de clave y/o entrar a las macros. Pero bueno, si Excel se quiere usar para eso, ya sabemos que no es lo ideal en temas de seguridad
Saludos

Abraham

hola Avalencia ¿Entonces que seria lo ideal para proteger la informacion?
ya que existe un monto de formas para desproteger libros (programas), hojas(macro)y si usamos una contraseña de estructurade libro en algun momento deemos quirala por lo que su usa en VBa tambien es facil de saltar al igual quiar las protecciones a los proyectos de VBa

¿Que recomienas para una mejor proteccion?
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 555
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por avalencia el Vie Oct 29, 2010 4:32 pm

Si queremos usar a Excel como un sistema gestor de base de datos, debemos estar concientes de lo siguiente:

- Excel NO es el ideal para eso, ya que fue creado como: Hoja de calculo
- Los niveles de seguridad de Excel no son buenos (en general del Office)

Si aun conociendo eso, deseamos usar Excel como SGBD y/o intentar tener datos seguros en dichos archivos, pues, podriamos aplicar las siguientes cosas:

- Clave de apertura
- Proteccion de libro
- Proteccion de hojas
- Proteccion del proyecto VBA
- Hojas "muy ocultas"

Claro que muchas personas podran evadir todo eso

Saludos

Abraham

PD: Para SGBD, si se tiene Office, pues hay que usar Access

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Vie Oct 29, 2010 5:56 pm

Como decia lineas arriba, la gente "comun" no nos es facil saltar las protecciones.
solo con mala fe, sucede y se investiga para saltarlas.
Ahora bien, todos sabemos que las macros de excel, puede contener virus.
Mi pregunta es:
Se puede meter un troyano como proteccion?


avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por avalencia el Vie Oct 29, 2010 6:27 pm

- Cierto, quizas la mayoria de personas No consiga "saltar" las protecciones mencionadas

- Si, existen los "macrovirus", que no es lo mismo que una macro contenga virus.

- Sobre el troyano. Respondamos primero que es un troyano: Es un software malicioso que se presenta al usuario como un programa aparentemente legítimo e inofensivo pero al ejecutarlo ocasiona daños. Entonces, ¿podrias replantear tu pregunta para poder entender a que te refieres?

saludos

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Vie Oct 29, 2010 6:51 pm

Exactamente a lo que acabas de describir.

Ejemplificando, seria como un perro guardian en una casa.
si existen letreros de no entrar, y tu entras es bajo tu responsabilidad.

si me explico?
La misma idea. Excel=tu casa el troyano=perro.
si alguien lo intenta cruzar, es bajo su responsabilidad.

Tal vez estoy viendo demasiadas peliculas de ficcion.
pero, no creo que este tan alejado de la realidad.




avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por avalencia el Vie Oct 29, 2010 7:00 pm

Pero, ¿que es el troyano para ti? o mejor dicho ¿que deberia ser? ¿un ejecutable? ¿otro excel? Sea cual sea la respuesta, date cuenta que estarias dependiendo de OTRO archivo, con el gran risesgo de que cualquier usuairo lo borre y/o no lo copie

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por msylvestre66 el Vie Oct 29, 2010 8:00 pm

bueno ejecutable hasta el momento en que se tratara de abrir
el libro de excel, sin la contraseña correcta, o a la fuerza.
si de mi dependiera, lo pondria oculto en algun macro del libro.
pero ignoro si esto se puede.
aunque no llegando tan lejos, recuerda las fotos, o los videos xxx,
que traen ese codigo malicioso, que se llevan tu id, contraseñas y mas.
Entonces siendo objetivos, pudiera darse.
avatar
msylvestre66

Masculino Cantidad de envíos : 80
Edad : 55
Ciudad - Pais : Estado de México
Version de Excel : W8 Excel 2007 y 2010
Fecha de inscripción : 18/06/2009

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por avalencia el Sáb Oct 30, 2010 1:09 am

Estimado, las cosas que estas solicitando, no son posibles de desarrollar con Excel y/o su VBA.

Si deseas continuar con esas cosas, sugiero migrar a VC++ o VB.NEt o VB 6.0 o etc

Saludos

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 39
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Codigo para borrar un archivo

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.