proteger y desproteger hoja mediante una macro.

06/07/2005 - 19:43 por ~ jose ~ | Informe spam
Hola, tengo una duda, si protejo una hoja sin contraseña mediante una macro
se me crea este codigo
[ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True]
Y si la protejo con contraseña con este código
[Dim Pass As String
Pass="contraseña"
ActiveSheet.Unprotect Pass
' Aqui va el codigo de mi macro.
ActiveSheet.Protect Pass]
¿porque en este codigo no aparece (DrawingObjects:=True, Contents:=True,
Scenarios:=True)? o esque al ponerle contraseña todo eso sobra?
Gracias

Preguntas similare

Leer las respuestas

#1 KL
06/07/2005 - 21:16 | Informe spam
Hola Jose,

Mostrar la cita
El por que Excel lo hace de dos formas diferentes creo que es uno de los
enigmas de la grabadora de macros. Sera porque los disenador querian mostrar
las multiples formas de escribir el mismo codigo :-0 Digo yo ???

Mostrar la cita
La contrasena no tiene nada que ver, pero los demas parametros si que son
redundanttes, es que como por defecto sus valores son TRUE no hay necesidad
de indicarlo expresamente, a no ser que quieras asignar FALSO que es cuando
usarias estos parametros (que es como deberia salir en el primer macro que
grabaste).

Saludos,
KL
#2 ~ jose ~
06/07/2005 - 21:41 | Informe spam
Hola KL, no me funciona muy bien esto que estoy haciendo, pero creo que si
me das la linea de codigo SOLO para proteger con contraseña creo que me
solucionaré.
gracias

"KL" escribió en el mensaje
news:
Mostrar la cita
#3 ~ jose ~
06/07/2005 - 21:45 | Informe spam
KL, dejalo, no te molestes ya lo he sacado, el codigo (para el que le
interese) es:
[ Dim Pass As String
Pass = "contraseña"
ActiveSheet.Protect Pass]
Un saludo.
PD perdon por postear sin intentarlo un poco mas, :-)

"~ jose ~" <carpinjose @ gmail.com> escribió en el mensaje
news:utWye.1927350$
Mostrar la cita
Ads by Google
Search Busqueda sugerida