Forums Últimos mensajes - Powered by IBM
 

Bloquear archivo

23/08/2008 - 20:48 por José Antonio | Informe spam
Saludos a todos.

Tengo un formulario que toma datos de otras hojas del mismo libro, una
pequeña macro, requiero bloquear por seguridad todo el archivo, sólo que se
pueda ejecutar la macro que es calcular e imprimir, pero que madie pueda
modificar el formato ni altere las tablas de las otras hojas.

Agradeceré mucho vuestra ayuda.

Everin
 

Leer las respuestas

#1 Héctor Miguel
24/08/2008 - 02:23 | Informe spam
hola, José Antonio !

Tengo un formulario que toma datos de otras hojas del mismo libro, una pequena macro
requiero bloquear... todo el archivo, solo que se pueda ejecutar la macro que es calcular e imprimir
pero que madie pueda modificar el formato ni altere las tablas de las otras hojas...



lo mas usual para trabajar con macros sobre hojas protegidas es re/proteger en el evento '_open' del libro
estableciendo la proteccion a solo la interfase con el usuario
segun las versiones a las que tengas pensado dar "soporte" para el uso de tu archivo +/- como sigue:
=a) en excel 97 y 2000 NO necesitas repetir el password (es suficiente con poner):
Private Sub Workbook_Open()
Worksheets("Hoja1").Protect UserInterfaceOnly:=True
End Sub
=b) a partir de excel 2002/xp SI es requisito repetir el password:
Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub
=c) si se trata de varias hojas (suponiendo una misma clave para todas)...
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja6"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Next
End Sub
=(practicamente) TODO lo que hagas por codigo... pasara sin problemas
(excepto ciertas cosillas relacionadas con ordenaciones, insertar filas/columnas y objetos incrustados)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares