Proteger para evitar Imprimir y guardar o guardar como

Ups Olvide que tambien una macro que no permita copiar datos del libro

tal vez le pueda servir la información del siguiente vinculo

http://technet.microsoft.com/es-es/...79103.aspx

Gabriel Raigosa
http://sites.google.com/site/misitioexcel/

Age escribió:

Buenas tardes:

Qusiera que me ayudaran en lo siguiente:

* Un codigo en un libro donde evite las impresiones y que ademas pida una
clabe para poderlas realizar.

* Un codigo en un libro donde evite que se guarde dicho libro en otro disco
duro, usb, cd, DVD, etc. y que pida clave si se requiere grabar en otro lugar
que no se donde esta.

* Un codigo donde toda la hoja o libro ponga las letras ocultas (no en
blanco ocultas) si en la celda a1 no tengo nada escrito y si pongo "foco" en
esa celda las vuelba visibles todo el libro (en configriracion de celda es la
opcion es ";;;", lo quiero mediante la celda a1 tenga escrito "Foco" y de
forma automatica) .

Gracias.

hola, (...) ???

__ 1 __

* Un codigo en un libro donde evite las impresiones y que ademas pida una clabe para poderlas realizar.

__ 2 __

* Un codigo en un libro donde evite que se guarde dicho libro en otro disco duro, usb, cd, DVD, etc.
y que pida clave si se requiere grabar en otro lugar que no se donde esta.

__ 3 __

* Un codigo donde toda la hoja o libro ponga las letras ocultas (no en blanco ocultas)
si en la celda a1 no tengo nada escrito y si pongo "foco" en esa celda las vuelba visibles todo el libro
(en configriracion de celda es la opcion es ";;;", lo quiero mediante la celda a1 tenga escrito "Foco" y de forma automatica).

1) en el modulo de codigo de tu libro (ThisWorkbook)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = InputBox("Entra tu clave") <> "Hocus Pocus"
End Sub

2) tambien en el modulo de codigo de tu libro (ThisWorkbook)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = InputBox("Entra tu clave") <> "Hocus Pocus"
End Sub

-> puedes adaptar otro tipo de contrles y variables (p.e.) para que no se vea la clave y/o...
para que si (p.e.) desde la vista preliminar, decides lanzar la impresion, el codigo NO vuelva a pedir la clave
ademas de que deberias proveer un mecanismo (macro/boton) para poder guardar cambios en el archivo

3) aqui serviria si comentas (+/- exactamente) cual es el objetivo de este tipo de "proteccion"
(las propuestas podrian variar segun otras caracteristicas y eventualidades)

4) para la consulta de tu siguiente post, ve si te sirve proteger hoja y libro
(las formulas no pasan al copiar a otro lado, pasan como valores)

probablemente hay dos o tres detalles que no has "sacado del tintero" -???-
aprovecha tu proximo mensaje para "sacarlos a la luz" ;)

saludos,
hector.

El obetivo es evitar que una base de datos se facilmente robada, ya que hace
unos meses lo fue y se dio mal uso con ella.

el que pida clave para ser guardada o guardada como es para establcer una
proteccion mayor.

el que se soculte lo contenido en la hoja es por si lo habren no sepan por
que no se ve nada, ya que estan ocultas.

Gracias

"Héctor Miguel" escribió:

hola, (...) ???

__ 1 __
> * Un codigo en un libro donde evite las impresiones y que ademas pida una clabe para poderlas realizar.
__ 2 __
> * Un codigo en un libro donde evite que se guarde dicho libro en otro disco duro, usb, cd, DVD, etc.
> y que pida clave si se requiere grabar en otro lugar que no se donde esta.
__ 3 __
> * Un codigo donde toda la hoja o libro ponga las letras ocultas (no en blanco ocultas)
> si en la celda a1 no tengo nada escrito y si pongo "foco" en esa celda las vuelba visibles todo el libro
> (en configriracion de celda es la opcion es ";;;", lo quiero mediante la celda a1 tenga escrito "Foco" y de forma automatica).

1) en el modulo de codigo de tu libro (ThisWorkbook)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = InputBox("Entra tu clave") <> "Hocus Pocus"
End Sub

2) tambien en el modulo de codigo de tu libro (ThisWorkbook)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = InputBox("Entra tu clave") <> "Hocus Pocus"
End Sub

-> puedes adaptar otro tipo de contrles y variables (p.e.) para que no se vea la clave y/o...
para que si (p.e.) desde la vista preliminar, decides lanzar la impresion, el codigo NO vuelva a pedir la clave
ademas de que deberias proveer un mecanismo (macro/boton) para poder guardar cambios en el archivo

3) aqui serviria si comentas (+/- exactamente) cual es el objetivo de este tipo de "proteccion"
(las propuestas podrian variar segun otras caracteristicas y eventualidades)

4) para la consulta de tu siguiente post, ve si te sirve proteger hoja y libro
(las formulas no pasan al copiar a otro lado, pasan como valores)

probablemente hay dos o tres detalles que no has "sacado del tintero" -???-
aprovecha tu proximo mensaje para "sacarlos a la luz" ;)

saludos,
hector.

hola, como te llamas ? (si no es indiscreto de mi parte) :))

__ 1 __

El obetivo es evitar que una base de datos se facilmente robada, ya que hace unos meses lo fue y se dio mal uso con ella.

__ 2 __

el que pida clave para ser guardada o guardada como es para establcer una proteccion mayor.

__ 3 __

el que se soculte lo contenido en la hoja es por si lo habren no sepan por que no se ve nada, ya que estan ocultas.

(de atras... pa'lante)...

3) (creo que) este punto podria considerarse "cubierto" por el primero (para no caer en algun abuso aplicando formatos)
2) prueba con los dos codigos de la propuesta anterior (no comentas si ya lo intentaste) -?-
1) lo siguiente es solo una combinacion de uno o dos trucos sencillos (esperando que no se necesiten mas) -???-
supongo que aceptaras que no hay "candado a prueba de ladrones" y la intencion es solamente "desesperanzar"...
a los usuarios principiantes, a un buen numero de los intermedios, y a uno que otro "avanzado/experto" (despistado) :))

OJO: el verdadero conflicto seria si tu libro se abre SIN permiso de usar las macros (politicas o decision del usuario)
o si al momento de abrir Y autorizar, se mantiene pulsada la tecla {shift} para inhibir el evento '_open' del libro -?-
(entonces, seria necesario "pasar al siguiente nivel") ;)

saludos,
hector.

a) crea alguna (in)determinada carpeta y la ocultas en las propiedades de sistema operativo
b) pon ahi un (in)determinado archivo "cualquiera", tambien oculto en las propiedades del sistema
-> puede ser un simple archivo de texto SIN datos p.e. que se llame "candado.dat" (lo importante es que exista)
c) si este archivo existe... el libro permanece abierto (se asume que ya no es necesario lo de los formatos ocultos)
ei este archivo NO existe... el libro se auto-eliina de donde hubiera sido copiado de forma no autorizada

-> copia/pega (o escribe) el siguiente codigo:
tambien en el modulo del libro (ThisWorkbook) como primera instruccion...

Private Sub Workbook_Open()
If Dir("c:\alguna carpeta\oculta a\donde esta tu archivo\candado.dat") <> "" Then Exit Sub
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End Sub