Macro Cambiar a Proteger Bloqueado

[AprendizMexicano]

Buen dia a todos

Les comento como esta lo que prentendo hacer

Le voy el libro Datos a una persona para que me lo llene voy a proteger solo unas cuantas celdas y otras van a quedar desprotegidas para que introduzca los datos, lo que quisiera es que a partir digamos del 15 de agosto de 2006 proteger todas las hojas - todas las celdas, incluso las celdas para ingresar los datos datos, osea las que marque como desprotegidas, lo quisiera hacer mediante una macro ya que no voy a poder desprotegerlas y protegerlas manualmente por ya no voy a tener el archivo en mi poder.

Espero haberme explicado

Gracias.

Saludos

[abrahamvj]

Pues si se puede, con una macro AUTO_OPEN que compare el dia (DATE) para que llegado el 15/08/2006 proteja todo lo que desees. Pero el dilema es que que si el nivel de las personas a las que les envia el archivo es ALTO no se habilitara la macro, o si es medio, pedira permiso para habilitarse y la persona puede poner NO.

Abraham

[AprendizMexicano]

Abrahamvj

Ya tengo una macro parecida que al abrir compara la fecha y protege las hojas lo que no he podido lograr hacer es que me cambie las celdas que no las tengo protegidas que me las cambie a bloqueadas y protegidas y que todas queden protegidas (todas las hojas todas las celdas)

A ver si me puedes ayudar, te lo voy a gradecer.

Saludos

[abrahamvj]

Esta macro desprotege una hoja cuya contraseña es 1111, bloquea/proteje todas las celdas y vuelve a proteger la hoja.

Sub proteccionposterior()

'aqui desprotege la hoja
ActiveSheet.Unprotect 1111

'Aqui protege todas las celdas (las que esan sin bloqueo y todas en genral)
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False

'Aqui vuelve a proteger la hoja con la misma contraseña
ActiveSheet.Protect 1111, DrawingObjects:=True, Contents:=True, Scenarios:=True

'Para dejar en algun sitio el cursor
Range("a1").Select
End Sub

Abraham

[AprendizMexicano]

Abraham

Te agradezco tu ayuda, ya probe la macro y funciona bien

Te felicito por tus respuestas tan acertadas

Saludos

[soclama]

hola a todos tengo una pequeña consulta de una macro , que tengo para claves deseo que al digitar no aparezca lo que digito si no que solo arteriscos , por favor alguien me puede ayudar