Duda proteger hoja

Hola Thor:

Las protecciones no se ejecutan a nivel de rango, sino a nivel de hoja o de
libro.
Lo que sí se puede hacer es, en el formato de un rango decidir si cuando
bloqueamos la hoja, ese rango quedará bloqueado o no.
El código de abajo hace lo siguiente:
1º Intenta desproteger la hoja activa, si está protegida por contraseña te
la pide.
Caso de no introducir contraseña, o que sea errónea, no ejecuta el
código.
2º Da formato a la columna C como bloqueada y oculta
3º Vuelve a proteger la hoja con la contraseña 1234
(Cambia este password al que desees utilizar)


Private Sub CommandButton1_Click()
On Error GoTo Fin
ActiveSheet.Unprotect
Columns("C:C").Select
Selection.Locked = True
Selection.FormulaHidden = True
Range("C1").Select
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Fin:
End Sub

Saludos.-

"Thor" escribió en el mensaje de noticias
news:

Hola,

Necesito bloquear una columna con un boton (p.e.) pero que al pulsar el
boton pida contraseña antes de que ejecute el bloqueo de la columna, se
puede
hacer?