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

Seguridad Evitar que copien un archivo a un USB o a otro PC

Ir abajo

Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por alfonsohv el Mar Ene 16, 2018 2:16 pm

Buenas tardes. Tengo un problema y quisiera saber si me pueden ayudar. Tengo un trabajo que me ha llevado bastante tiempo crearlo. El tema es que además de mí lo tiene que utilizar otra persona. Yo lo tengo instalado en el pc del trabajo y en mi pc personal, pero ésta persona ya me ha comentado que se lo pase en un USB.

El caso es que quiero proteger el fichero para que no se pueda utilizar en otro lugar que no sea mi puesto de trabajo. Tiene que permitirnos trabajar a otra persona y a mí, pero si lo copian, quisiera que no funcionase en otro pc, salvo que fuese yo quien lo copie y lo utilice en otro pc. Imagino que para esto necesitaria que la macro incluyese dos contraseñas, una para ejercer como usuario, y la mía, con la que tendría acceso a todo el fichero, incluso a copiarlo, pegarlo y utilizarlo en otro pc.

Por favor, ¿Me podéis ayudar?, gracias de antemano.

alfonsohv

Masculino Cantidad de envíos : 9
Edad : 48
Ciudad - Pais : Granada-España
Version de Excel : 2010
Fecha de inscripción : 16/01/2018

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por gfellay el Mar Ene 16, 2018 3:29 pm

Tienes varias opciones, te dejo un par:
1. La más sencilla es ponerle contraseña de apertura al archivo, de esta forma aunque copie el mismo, no podrá abrirlo (también podrías poner contraseña de lectura, para que lo pueda abrir, pero no editar).
2. Un poco más complicada que la anterior, es que cuando se abre el archivo revise algún dato para verificar que está donde debe (puede ser el número serie del disco o simplemente que busque algún archivo en el disco C -que previamente colocaste allí justamente para verificar esto).
En resumen, si sos un novato del Excel te recomiendo la primer opción, ahora si ya tenés un poco más de conocimientos, entonces podés usar cualquiera de las dos, y solo depende de tu 'gusto/conveniencia'

Saludos
avatar
gfellay

Masculino Cantidad de envíos : 31
Edad : 47
Ciudad - Pais : Bs. As. - Argentina
Version de Excel : 2010
Fecha de inscripción : 12/09/2008

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por alfonsohv el Mar Ene 16, 2018 6:14 pm

gfellay escribió:Tienes varias opciones, te dejo un par:
1. La más sencilla es ponerle contraseña de apertura al archivo, de esta forma aunque copie el mismo, no podrá abrirlo (también podrías poner contraseña de lectura, para que lo pueda abrir, pero no editar).
2. Un poco más complicada que la anterior, es que cuando se abre el archivo revise algún dato para verificar que está donde debe (puede ser el número serie del disco o simplemente que busque algún archivo en el disco C -que previamente colocaste allí justamente para verificar esto).
En resumen, si sos un novato del Excel te recomiendo la primer opción, ahora si ya tenés un poco más de conocimientos, entonces podés usar cualquiera de las dos, y solo depende de tu 'gusto/conveniencia'

Saludos

Gracias por contestar. Soy un novato pero muy activo a la hora de aprender, aunque por mi cuenta. Tengo una macro (te la envío más abajo), que lo protege y borra el fichero con el tiempo, pero me jode bastante que lo copien y se lo lleven, ya que si tengo un nº alto en la cuenta atrás, lo pueden utilizar durante bastante tiempo. Te pido por favor, si no te importa, que me indiques cómo funciona la macro de buscar un archivo en el disco duro, me parece muy interesante. Te doy las gracias de antemano. Si quieres te puedo pasar algún trabajo mío para que lo evalúes. Te paso la macro que tengo.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Inicio").Visible = xlSheetVisible

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Inicio" Then
ws.Visible = xlVeryHidden
End If
Next ws

ActiveWorkbook.Save


End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("ALBARÁN").Range("AA100").Value = Sheets("ALBARÁN").Range("AA100").Value + 1
End Sub
Private Sub Workbook_Open()

For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws

Sheets("Inicio").Visible = xlVeryHidden
Sheets("ALBARÁN").Activate
DesactivarMenu

cuenta = Sheets("ALBARÁN").Range("AA100")

Select Case cuenta
Case Is <= 500
Exit Sub
Case 501
GoTo ultimoaviso
Case Is >= 502
GoTo bloqueo
End Select



Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False
MsgBox "EN BREVE SE LE PEDIRÁ LA RENOVACIÓN DE LA LICENCIA DE USO"
ActiveWorkbook.Close
GoTo fin

ultimoaviso:
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False

licenciauso = InputBox("INTRODUCIR LICENCIA DE USO")
If licenciauso <> "xxxxxx" Then
MsgBox "Licencia Incorrecta; VUELVA A INTRODUCIR LA LICENCIA"
licenciauso2 = InputBox("INTRODUZCA LA LICENCIA DE USO; 2º intento")
If licenciauso2 <> "xxxxxx" Then
MsgBox "Licencia Incorrecta; Tendrá una sola oportunidad más"
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If

GoTo fin

bloqueo:
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
Application.DisplayAlerts = False

licenciauso3 = InputBox("INTRODUCIR LICENCIA DE USO; Tercer aviso")
If licenciauso3 <> "xxxxxx" Then
MsgBox "Licencia Incorrecta; No tiene autorización de uso"
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End If
GoTo fin

Ver_Error:
ActiveWorkbook.Close

fin:


End Sub

alfonsohv

Masculino Cantidad de envíos : 9
Edad : 48
Ciudad - Pais : Granada-España
Version de Excel : 2010
Fecha de inscripción : 16/01/2018

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por alfonsohv el Miér Ene 17, 2018 8:53 am

Por cierto, no me importa compartir mis trabajos. Si quieres te puedo enviar este último, para el que te pido la marcro para impedir que lo copien, me dices un mail y te lo envío.

alfonsohv

Masculino Cantidad de envíos : 9
Edad : 48
Ciudad - Pais : Granada-España
Version de Excel : 2010
Fecha de inscripción : 16/01/2018

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por gfellay el Miér Ene 17, 2018 9:10 am

Te dejo un código 'sencillo' que te puede servir:

Código:
Private Sub Workbook_Open()
Dim resul
resul = Dir("c:\nombreArchivo")
Stop
If resul = "" Then
   MsgBox "No está permitido el uso de este archivo, contacte con Alfonso", vbOKOnly, "Atención"
   ThisWorkbook.Close False
End If
End Sub

Una vez que estés seguro que el código funciona debes eliminar la instrucción Stop
deberías remplazar 'nombreArchivo', por un archivo de tu creación que coloques en alguna carpeta que definas
Además debes proteger el proyecto con password, ya que sino podrían entrar a revisar el código
avatar
gfellay

Masculino Cantidad de envíos : 31
Edad : 47
Ciudad - Pais : Bs. As. - Argentina
Version de Excel : 2010
Fecha de inscripción : 12/09/2008

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por alfonsohv el Miér Ene 17, 2018 3:22 pm

Tengo protegido el proyecto con VBAProjet Contraseña, ¿es a esto a lo que te refieres?...

Entiendo que ésta protección, alguien que no entiende mucho de ordenadores, no podrá quitarla.

Funciona, mil gracias.

Me gustaría enviarte algún proyecto mío, como este de gestión de turnos horarios y vacaciones para que me dieses tu opinión, ¿te importaría?. Sin compromiso alguno, bastante agradecido estoy ya.


alfonsohv

Masculino Cantidad de envíos : 9
Edad : 48
Ciudad - Pais : Granada-España
Version de Excel : 2010
Fecha de inscripción : 16/01/2018

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por gfellay el Jue Ene 18, 2018 7:59 am

Tengo protegido el proyecto con VBAProjet Contraseña, ¿es a esto a lo que te refieres?...

Entiendo que ésta protección, alguien que no entiende mucho de ordenadores, no podrá quitarla.
Sí, perfecto. Aunque igualmente recuerda que las contraseñas en Excel son fácilmente hackeables. Lo único que te puedo sugerir acá es que uses una contraseña 'larga' para que no puedan descubrirla los algoritmos 'de fuerza bruta'


Me gustaría enviarte algún proyecto mío, como este de gestión de turnos horarios y vacaciones para que me dieses tu opinión, ¿te importaría?. Sin compromiso alguno, bastante agradecido estoy ya.
Lo siento pero estoy medio complicado con los tiempos como para comprometerme en algo así...
Saludos
avatar
gfellay

Masculino Cantidad de envíos : 31
Edad : 47
Ciudad - Pais : Bs. As. - Argentina
Version de Excel : 2010
Fecha de inscripción : 12/09/2008

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por alfonsohv el Jue Ene 18, 2018 3:21 pm

Mil gracias. Tengo otra duda en otro proyecto que no consigo resolver, pero te la plantearé más adelante.
Por cierto, lo he probado en el trabajo y va de escándalo.

alfonsohv

Masculino Cantidad de envíos : 9
Edad : 48
Ciudad - Pais : Granada-España
Version de Excel : 2010
Fecha de inscripción : 16/01/2018

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por gfellay el Vie Ene 19, 2018 2:43 pm

Perfecto y esa es la mejor manera de organizar estos foros ya que si sigues preguntando aquí se desvirtúa la pregunta inicial
Saludos
avatar
gfellay

Masculino Cantidad de envíos : 31
Edad : 47
Ciudad - Pais : Bs. As. - Argentina
Version de Excel : 2010
Fecha de inscripción : 12/09/2008

Volver arriba Ir abajo

Re: Seguridad Evitar que copien un archivo a un USB o a otro PC

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


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