Bloquear archivo

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.