Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Proteccion

28/01/2009 - 19:14 por Lazar | Informe spam
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
 

Leer las respuestas

#1 Lazar
28/01/2009 - 20:14 | Informe spam
Me contesto a mi mismo
Lo que hago es proteger la macro de desprotección con contraseña de forma
que :

Dim Mensaje, Título, ValorPred, MiValor
Mensaje = " Introduzca la Contraseña" ' Establece el mensaje.
Título = "Desproteger hojas" ' Establece el título.
MiValor = InputBox(Mensaje, Título)

If MiValor = "ElPassword" Then
For Each ws In Worksheets
Sheets(ws.Name).Select
ActiveSheet.Unprotect ("ElPassword")
Next ws
Else
MsgBox " Contraseña erronea, vuelva a intentarlo"
End If


Pero... en el InputBox no aparecen los típicos * de las contraseñas , se ve
lo que se escribe, ¿ es posible solucionarlo ?

Gracias

Saludos
Ramón



"Lazar" escribió en el mensaje
news:
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





Preguntas similares