Como evitar que mi archivo en excel sea copiado para ser utilizado en otro pc
Hace poco tiempo usted me ayudo con archivo donde tenia que consultar datos en otro libro. Ahora el favor que le pido es como hacer que el archivo que tengo sea protegido para evitar ser copiado, Me costo mucho tiempo el esfuerzo de haberlo creado y necesito protegerlo.
Puedes usar el username al principio de la macro para identificar el usuario. De esta manera solo funcionará con el usuario que tu decidas.
clave = application.username
Gracias por su pronta respuesta; pero por favor ayúdeme con un pequeño ejemplo, no tengo experiencia, soy un novato que trata de aprender un poquitoo, gracias a su ayuda.
Te mando un ejemplo de como sería:
Pega esta macro en un módulo. La palabra Luis la tienes que cambiar el nombre de usuario que tengas en tu equipo. Después sales grabando los datos y cuando vuelvas a entrar chequeará para comprobar que el usuario es el correcto.
Sub auto_open() usuario = "Luis" If Application.UserName <> usuario Then MsgBox "NO TIENE ACCESO" ActiveWorkbook.Close False End If End Sub
no olvides finalizar la consulta
Este usuario es el de Windows?? De ser así, este método sirve pero esta limitado al user name de la cpu, si preguntamos el nombre de usuario (damos un dato muy valioso), además es administrador casi siempre, creo que no es bueno, yo escribí un código que cuando arrastras el *.xls con clic derecho y eliges "copias aquí" al abrirlo tira un mensaje de "copia no autorizada" y luego lo cierra automáticamente, también funciona al momento de elegir "guardar como" ya que crea otra copias. Contáctame si lo quieres! yo lo uso y es súper efectivo, los archivos *.xls solo pueden moverse de un lugar a otro pero jamás copiarlos, (no es necesario ningún software, solo creatividad) - Matias Mercado
Se que es tarde no tengo mucho tiempo en el grupo, trata con este comando solo verifica cual es tu usario de Windows con el que inicias sesion te dejo la validacion de usuario y ultimo lo que necesitas--- Validar el usuario de windows ---Sub Appl_UserNamel()MsgBox Environ("username")End Sub'Entrelazar usuario de windows con macrousuario = "juan"If Environ("username") <> usuario ThenMsgBox "ACCESO RESTRIGUIDO SOLO A PERSONAL AUTORIZADO"ActiveWorkbook.Close FalseEnd If - manigoldo xxx