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




begin 666 Ramon.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..CM286UO;CM0:6-O#0I&3CI2
M86UO;@T*14U!24P[4%)%1CM)3E1%4DY%5#IR<&EC;VQR87)R;V)A=&5L969O
M;FEC87!U;G1O;F5T#0I2158Z,C P.3 Q,CA4,3@Q-# Y6@T*14Y$.E9#05)$
"#0H`
`
end