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

Macro para proteger archivo de excel

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para proteger archivo de excel

Mensaje por canoasesor el Dom Nov 07, 2010 9:22 pm

Hola.

Necesito un codigo en vb para excel que me proteja un archivo de excel contra copia. Es decir. Que si alguien copia mi archivo en una usb u otro pc, el sistema rastree que se copio o que esta en otro equipo que no se guardo originalmente. Colocar una contraseña es lo de menos porque la persona lo puede copiar y puede regalar la contraseña. Que hacer? algunos programadores juegan con la serie del label del DOS. Que se puede hacer al respecto?

Gracias

canoasesor

Masculino Cantidad de envíos : 8
Edad : 50
Ciudad - Pais : colombia
Version de Excel : 2007
Fecha de inscripción : 11/08/2009

Volver arriba Ir abajo

Seguridad en Excel????

Mensaje por GalileoGali el Dom Nov 07, 2010 9:57 pm

Partamos de la Base de que en Excel + VBA, no hay muchas seguridades...
Hay una propiedad del Objeto FilesystemObject denominada SerialNumber que asociada a un workbook_Open, puede cerrar el archivo o simplemente destruirlo, si no coincide el SerialNumber alojado en una variable invisible Workbook.Names("codigo").visible = false, correspondiente a la unidad del Primer almacenamiento.
Calculo que si lo que quieres resguardar es tuyo, debes entender como manipular estos objetos y propiedades


Última edición por GalileoGali el Lun Nov 08, 2010 7:37 am, editado 2 veces

_________________
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: Macro para proteger archivo de excel

Mensaje por avalencia el Lun Nov 08, 2010 2:09 am

Por cierto, ¿por que esa necesidad?

Abraham

_________________
Microsoft MVP 2010

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: Macro para proteger archivo de excel

Mensaje por canoasesor el Lun Nov 08, 2010 3:06 pm

Gracias. Es para evitar que me copien el archivo de excel. Arriba lei que decia que los programadores juegam no es juegan sino que usan el numero del serial para saber si estan en el equipo que se copio orioginalmente el archivo de excel.

Pero yo no se nada de visual basic. Asi que si sabes un codogo para poder copiar, te agradeceria mucho.

Gracias por responder.

CESAR

canoasesor

Masculino Cantidad de envíos : 8
Edad : 50
Ciudad - Pais : colombia
Version de Excel : 2007
Fecha de inscripción : 11/08/2009

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por moises melgar el Lun Nov 08, 2010 4:37 pm

no se si esto es lo que mecionaba gali pero vamos a probar:
Primero identificamos el numero de serie del equipo con la siguente macro:

Código:
Sub NumeroDeSerie()
' mismo numero de serie que Win32_LogicalDisk '
With CreateObject("Scripting.FileSystemObject")
MsgBox Hex(.Drives.Item("c:").SerialNumber)
End With
End Sub

luego ya al haber identificado el numero de serie dentro de un thisworkbook colocar:
tuclave es la clave de proteccion que le colocas a los libros
aquielnumdeserie es el numero identificado anteriormente
Código:
Private Sub Workbook_Open()
rem verifica el numero de serie del equipo donde se abre el libro
With CreateObject("Scripting.FileSystemObject")
If Hex(.Drives.Item("c:").SerialNumber) = "aquielnumdeserie" Then
rem si es correcto desprotege todas las hojas
MsgBox "correcto"
    For Each s In Sheets
        s.Unprotect "tuclave"
    Next s
Else: MsgBox "incorrecto" rem si es incorrecto mostrar mensaje y cerrar libro
ThisWorkbook.Close savechanges = True
End If
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
REM proteger el libro antes de cerrar
    For Each s In Sheets
        s.Protect "tuclave"
    Next s
End Sub

de esta forma si abre el libro y no activa las macros aun asi tu libro estara protegido
pero cualquier persona con conocimientos de VBa puede Saltarse esto facilmente y tambien desproteger las hojas
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: Macro para proteger archivo de excel

Mensaje por canoasesor el Mar Nov 09, 2010 3:02 pm

ok, gracias.

Te molesto de nuevo:

Hay posibilidad de que el sistema en una hoja llamada Series que debe permanecer oculta, tome las series de los equipos donde se instala y los almacene alli? maximo dos y que cuando entre, verifique si esa serie esta alli. sino estan, entonces salirse o dejar un mensaje y decir que no puede abrirse.

Si al intentar capturar la serie no la encuentra como es el caso de una usb, que no se abra o deje el mensje que desde alli no puede abrirse?

Ejemplo:

Tomar numero de serie del equipo
verificar si esta en A1 o A2
Si no esta, verificar si A1 esta vacio e instalarlo alli
Si no esta, verificar si A2 esta vacio e instalarlo alli
Si no esta, pero A1 y A2 estan ocupados, entonces Mensaje "este archivo no puede instalarse en mas de dos equipos. Adquiera una nueva licencia"
Dar Enter o Aceptar y Salirse

Si noi existe numero de lincencia es porque esta en una USB y dejar mensaje: "Este archivo no puede ejecutarse desde este dispositivo. Favor instralarlo en un equipo PC"

Algo asi
O que haya la posibilidad de que internamente pueda decir en cuantos equipo maxixmo yo lo pueda instalar manualmente.



Espero haya sido claro.

Lo anterior nacio de una idea que encontre en Internet pero no me funciono, pero esa esd la idea.

Gracias

canoasesor

Masculino Cantidad de envíos : 8
Edad : 50
Ciudad - Pais : colombia
Version de Excel : 2007
Fecha de inscripción : 11/08/2009

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por moises melgar el Mar Nov 09, 2010 8:19 pm

hola otra vez aqui en Mexico son buenas tardes:
ok, se puede tener un registro si el archivo de instalacion es el mismo para todas las maquinas
con la limitacion de que el archivo instalado solo funcione en ese mismo equipo y equipo instalados anteriormente
ejemplo
A, B, C son equipos que se les intalo el archivo en ese orden
el archivo de B funcionaria en A pero no es C (se instao despues de "B")
el archivo de C funcionaria en A y B
y el archivo de A no funcionaria en B ni es C
pero con algo se inicia
cuidate mucho seguro alguien respondera el tema mucho mas rapido ya que son muy buenos los de este foro
ahh por cierto excel no es muy seguro ya que los que tienen conocimiento en excel y VBA puden saltarse estas limitantes
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: Macro para proteger archivo de excel

Mensaje por P@li el Miér Nov 10, 2010 9:22 pm

Insisto con el tema de seguridad, para mi lo mejor es compilar las macros más importantes en una dll activeX con VB6, despues hacer referencia a esta dll desde VBA, las macros dentro de la dll quedan ocultas en un lenguaje que no puede descifrarse (en principio), y además compiladas de tal manera que la comunicación con el sistema operativo es más directa y por lo tanto más rápido en procesos complejos.

En este link dejé un pequeño paso a paso para crear una dll.
[Tienes que estar registrado y conectado para ver este vínculo]

Saludos.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por moises melgar el Miér Nov 10, 2010 9:24 pm

disculpe tambien pensaba en eso pali, pero no me acordaba donde estaba el tema donde coloco el link de descarga
Para poder seguir sus pasos

gracias
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: Macro para proteger archivo de excel

Mensaje por canoasesor el Sáb Nov 27, 2010 11:04 pm

Hola, despues de pensar en las opciones pense en esta opcion para que me regalen el codigo. Gracias.

En la Hoja3 por ejemplo en la celda A1 debe ir siempre el numero de serie del pc. Pero la primera vez que entregue el archivo debe estar siempre en 1, que es un dato que siempre lo colocare.

Cuando la persona abra el archivo se hara lo siguiente:

Lea A1 en Hoja3
Si A1 = 1 Entonces
Es porque se activo el archivoy calculo el numero de la serie del dduro y lo registro en A1.
Sino
Identifique el numero de serie del DDuro y comparelo con A1
Si El Numero de serie es igual a A1, entonces que venga codigo visual basic que de acceso al programa
Sino
Sacar mensaje que diga que esa copia no esta autorizada para trabajar y que se ponga en contacto con la casa de software.

la idea es que al ejecutarse el archivo se evite que desbloqueen la macro o la interrumpan y bueno, no se que otras cosas que eviten que alguien anele las macros.

Gracias a todos los que colaboran en este foro.



CESAR CANO

canoasesor

Masculino Cantidad de envíos : 8
Edad : 50
Ciudad - Pais : colombia
Version de Excel : 2007
Fecha de inscripción : 11/08/2009

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por GalileoGali el Sáb Nov 27, 2010 11:37 pm

O sea que vos quisieras que te hagamos el codigo para que no te "profanen" tu código. Francamente, no dedicaría ni dos minutos en esa tarea

_________________
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: Macro para proteger archivo de excel

Mensaje por P@li el Dom Nov 28, 2010 12:40 am

Coincido con Gali. La verdad que el foro no está ideado para que te solucionen las cosas, sino para encaminarte hacia la solución y que llegues a ella por tus propios medios. Pocas son las veces que se hacen códigos a medida. Te recomiendo que empieces a leer sobre los temas que se plantearon en este hilo, por ahí debe estar la opción para que vos la continues hasta convertirla en código.

Saludos.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por avalencia el Dom Nov 28, 2010 5:08 pm

Pues del mismo pienso del mismo modo. en los foros se ayuda, no se lehace el trabajo o la tarea a las o los demas.

En todo caso, si realmente deseas que te lo hagan, pues, recomiendo negociar un pago con quien tenga, aun, ganas de hacertelo

Abraham

_________________
Microsoft MVP 2010

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: Macro para proteger archivo de excel

Mensaje por canoasesor el Dom Nov 28, 2010 7:36 pm

ok.
muchas gracias.


canoasesor

Masculino Cantidad de envíos : 8
Edad : 50
Ciudad - Pais : colombia
Version de Excel : 2007
Fecha de inscripción : 11/08/2009

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por cazador el Sáb Jul 09, 2011 6:43 pm

avalencia escribió:Pues del mismo pienso del mismo modo. en los foros se ayuda, no se lehace el trabajo o la tarea a las o los demas.

En todo caso, si realmente deseas que te lo hagan, pues, recomiendo negociar un pago con quien tenga, aun, ganas de hacertelo

Abraham

Creo que tendrías que bajarte un poco del caballo y dejar de sentirte un Dios. Lo que te pide no es nada del otro mundo. Y no dudes que negociando seguro todos tendrán ganas de hacerlo, sin el "aun"
La idea es compartir información. ok?

cazador

Masculino Cantidad de envíos : 1
Edad : 48
Ciudad - Pais : buenos aires
Version de Excel : 2007
Fecha de inscripción : 09/07/2011

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por Cacho R el Sáb Jul 09, 2011 7:44 pm

La música es Cultura y la Cultura hay que compartirla, ¿Estamos de acuerdo?...

Pregunto, entonces: ¿Por qué hay que pagar para acceder al CD del grupo musical favorito ó para presenciar uno de sus shows?...

Y la razón es bastante obvia: aquello que para algunos es "cultura a compartir" para otros es "su trabajo".
Lo que nos lleva a preguntarnos: ¿Quién regala -dócilmente- su trabajo?...
¿Tu lo haces, cazador?

Pues, y para cientos de personas a lo largo y a lo ancho del mundo Web: obsequiar "jirones" de su trabajo es cosa de todos los días.
Entre ellos: quienes orientamos y/o ayudamos gratuita, solidaria y voluntariamente en los Foros, tal y como la persona a la que has juzgado y sentenciado más rápidamente de lo que la sensatez hubiese requerido.

En fin: es cuestión de meditarlo un poco, nomás...
Saludos, Cacho R.
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por P@li el Sáb Jul 09, 2011 9:24 pm

cazador, me parece poco merito el tuyo para hacer esos comentarios. Por otro lado, una cosa es compartir información, y otra totalmente distinta es crear información, de todo lo que tengo hecho nunca tuve problemas en compartirlo, pero ponerme a crear desde cero algo complejo para que otro se beneficie y hacerlo gratuitamente, la verdad es que no tengo ganas de hacerlo.
Ahora yo me pregunto, vos irias a trabajar a una empresa si no fuera a cambio de un pago en dinero? yo tampoco casador.
Y por último, si "no es nada del otro mundo", por qué no lo hacés vos y lo compartís con todos nosotros y queda resuelto el tema.

Saludos,
Pablo.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Macro para proteger archivo de excel

Mensaje por moises melgar el Lun Jul 11, 2011 11:17 am

hola querido foro, hace tiempo no entraba.

GalileoGali:
NO SE ANUNCIAN servicios ESPECIALES, como por ejemplo RESPUESTAS RAPIDAS, ya que cualquiera contesta porque quiere y todos los participantes lo hacen como "amateurs", es decir que no especulamos con el TRABAJO DESINTERESADO de NADIE.
solo encontraran a varios amigos excelianos que nos reunimos..... "por amor al Excel-Arte"

Hay que comprender que la mayoría de aquí tiene un trabajo propio con sus propias responsabilidades y si dedican parte su tiempo libre no es para ganar dinero, si no para tener un lugar donde apoyarnos, donde seguir avanzando, practicar, resolver curiosidades tener distintas opiniones sobre un tema, simplemente aprender mas.....

Cada miembro es libre de hacer o no hacer un código.
Finalmente: La forma de pedir es la forma de dar y solo se tiene una oportunidad para causar una buena primera impresión.
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: Macro para proteger archivo de excel

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.