Proteccion

Hola
Tengo un archivo Excel con 100 hojas, todas están protegidas y con
password. Para facilitarme el acceso a las posibles modificaciones hice
dos macros de protección y desprotección para todo el conjunto de hojas
tal que :

Sub Desproteger()
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Unprotect ("ElPassword")
Next ws
End Sub

Sub Proteger()
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Protect Password:="ElPassword", DrawingObjects:=True,
Contents:=True, Scenarios:=True
Next ws
End Sub


El código esta protegido con contraseña

Ambas macros las activo con una combinación de teclas que supongo será
difícil averiguar para el usuario normal, pero lo que no se evitar es que
abran Herramientas - Macros y desde allí las ejecuten por lo que toda la
seguridad ya precaria de por si se viene abajo, ¿ alguna sugerencia ?

Gracias
Saludos
Ramón

... 100 hojas... protegidas y con password hice dos macros... para todo el conjunto de hojas tal que:
Sub Desproteger()
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Unprotect ("ElPassword")
Next ws
End Sub
Sub Proteger()
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Protect Password:="ElPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ws
End Sub
El codigo esta protegido con contrasena
... las activo con una combinacion de teclas que supongo sera difícil averiguar para el usuario normal
pero lo que no se evitar es que abran Herramientas - Macros y desde alli las ejecuten
por lo que toda la seguridad ya precaria de por si se viene abajo, alguna sugerencia ?

hola, Ramón !

op1: poner al principio del modulo donde tienes las macros la
instruccion: -> Option Private Module

op2: usar un argumento "opcional" (obviamente SIN proveerlo) en cada
procedimiento (p.e.)
Sub Desproteger(Optional Nada As String = "")

con cualquiera de las opciones anteriores las macros NO se muestran al
usuario ;)

para poner asteriscos al solicitar una clave, necesitas disenar un
formulario de usuario
revisa el siguiente articulo (y descarga un ejemplo):
-> Contraseña Formularios Excel
http://www.teladearana.es/seccion/e...2-h15.html

saludos,
hector.

__ OP __

... 100 hojas... protegidas y con password hice dos macros... para
todo el conjunto de hojas tal que:
Sub Desproteger()
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Unprotect ("ElPassword")
Next ws
End Sub
Sub Proteger()
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Protect Password:="ElPassword", DrawingObjects:=True,
Contents:=True, Scenarios:=True
Next ws
End Sub
El codigo esta protegido con contrasena
... las activo con una combinacion de teclas que supongo sera difícil
averiguar para el usuario normal
pero lo que no se evitar es que abran Herramientas - Macros y desde alli
las ejecuten
por lo que toda la seguridad ya precaria de por si se viene abajo, alguna
sugerencia ?