Protección de libro excel anti copias y cosas por el estilo
Para elsa
Dándole seguimiento a lo del compañero Cesar Babij me causo interés el hecho de hacer un libro que no se pueda copiar y en caso contrario ejecutar una macro al abrir:
Private Sub Workbook_Open() 'x Elsamtilde If Application.UserName <> "miKiosko" Then ' cambiar por nombre de pc ActiveWorkbook.Close False Application.Quit End If End Sub
pero que este sea que en vez de usuario sea por el nombre que tiene la PC
Para poder ejecutarse.
Espero tu ayuda y así pueda servirnos a quienes no conocemos métodos de mucha seguridad
1 Respuesta
Respuesta de Elsa Matilde
2
En un módulo colocá la siguiente macro:
Sub nroSerial()
'x Elsamatilde
Dim oFSO As Object
Dim drive As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set drive = oFSO.GetDrive("C:\")
'se compara con un nro ubicado en hoja1, X1
If Abs(drive.SerialNumber) <> Sheets(1).[X1] Then
ActiveWorkbook.Close False
End If
End SubAllí se compara con un valor dejado de antemano en una celda pero podrías controlar directamente con ese valor, por ej:
If Abs(drive.SerialNumber) <> 1234567 Then
Y en el evento Open, la llamada. Por ej:
Private Sub Workbook_Open() 'verificar equipo Call nroSerial End Sub
También hay que recordar que si el libro se proteje con clave, no lo podrán abrir sin contar con ella.
No comprendo del todo. "Abs(drive.SerialNumber)" ¿qué dato representa?. Pregunto porque sabemos que si copiamos y pegamos el archivo en otra PC, los datos como por ejemplo el valor de la celda X1, se van a copiar con exactitud en la otra PC. Si ambos son números fijos (constantes), la comparación dará por resultado verdadero, y se abrirá el archivo normalmente. Saludos! - Cesar Babij
No podemos responder consultas desde los comentarios.... pero tratándose de este tema ya tan meneado te aclaro: Al redactar tu código ya sabrás cuál es el nro de tu PC. Y ese nro lo dejás en alguna celda no visible, por ej X1. Luego, si lo abren en otro equipo la función ABS les dará un nro diferente a X1.... y por ende se bloqueará. Sdos! - Elsa Matilde