Bloquear archivo

Buenas! Pues resulta que tengo un problema de los gordos. He usado la búsqueda y también por google y no he encontrado nada, a ver si me podeis ayudar.

Tengo un archivo en Excel que quiero hacer una de las dos opciones siguientes:

1. Que solo pueda usarse en el ordenador asignado. Esto es, que el archivo sólo pueda abrirse si se usa en el ordenador inicial.

2. Que solo pueda ser usado en ese ordenador, y que no se pueda copiar de ninguna manera a otro sitio mediante CD o USB.

Es bastante importante y el archivo contiene información que no pueden usar otros. Por cierto, el archivo en "Excel" tiene que poder modificarse pero no guardarse. Esto es, que puedes modificarlo pero no puedes guardarlo luego.

Gracias por las respuestas!
Protegiendo el acceso al archivo: este caso es casi seguro que lo conoces, es simplemente, al

momento de guardarlo establecerle una contraseña de acceso...

Archivo | Guardar Como...
Del menú Herramientas seleccionas Opciones Generales
Le estableces la contraseña de protección
Le asignas nombre y guardas

Esta contraseña, en "general" es suficiente, para un usuario medio será practicamente imposible

abrirlo...

**************************
Protegiendo el acceso al código: si lo que quieres proteger es el código de tus macros, sigue

estos pasos...

Abre tu archivo
Entra al Editor de VBA Alt+F11
Ve al menú Herramientas | Propiedades de VBAProyect
Ve a la ficha Proteccion
Activas la casilla de verificación Bloquear proyecto para visualización
Estableces una contraseña (ya sabes, una que no se te olvide)

Ahora al abrir el archivo, aunque el usuario deshabilite las macros, no podra ver tu código...

**************************
o tambien:

Ejecuta las siguientes macros


Esta macro la tienes que ejecutar en todos los PC de tu trabajo donde quieras que se pueda usar el archivo

Private Sub Autorizar()
SaveSetting "MiArchivo", "Util", "Autorizado", "si"
End Sub


Esta es para cuando ya no este autorizado

Private Sub QuitarAutorizacion() DeleteSetting "MiArchivo", "Util", "Autorizado"
End Sub


Ahora, dentro del evento Open de cada libro que quieras proteger, buscara esta clave y si no la encuentra no dejara abrirlo...

Option Explicit

Private Sub Workbook_Open()
Dim Paso As String

Paso = LCase(GetSetting("MiArchivo", "Util", "Autorizado"))
If Paso = "si" Then
MsgBox "BIENVENIDO"
Else
MsgBox "NO ESTAS AUTORIZADO A USAR ESTE LIBRO"
ThisWorkbook.Close False
End If
End Sub


Claro, puedes poner algo mas dificil que un "si"



sacado de todoexpertos.....
http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/137511/control-de-pc-para-abrir-archivos-excel
Ya, pero aparte de que no tengo Visual Basic, saltarse la comprobación es sencillo. Pero gracias por tu respuesta ;)
2 respuestas