Excel - Seleccionar Celdas Bloqueadas: cambia todo el tiempo :S

[Pablus00]

Hola, tengo una hoja la cual desprotejo con:

ActiveSheet.Unprotect ("password")

Ejecuto el macro, luego la vuelvo a proteger..

ActiveSheet.Protect ("password")


hasta aca sin problemas, salvo por... tengo varias celdas que contienen formulas que estan bloqueadas para seleccionar, pero no se por que, cada tanto chequeo y me aparece que si se pueden seleccionar. Lo que se me cambia es:

Al momento de proteger la hoja, en las opciones, solo esta marcado:

Seleccionar Celdas desbloqueadas

Luego cuando la hoja, veo que se puede seleccionar todo, vuelvo a proteger la hoja manualmente en vez de con el macro, y encuentro que tengo tildado

Seleccionar Celdas Bloqueadas

que hago?

[abrahamvj]

coloca asi tu codigo:

ActiveSheet.Protect "clave"
ActiveSheet.EnableSelection = xlUnlockedCells

Abraham

[Pablus00]

Excelente, gracias abrahamvj ;)

[Pablus00]

Hola Abraham, el codigo que me diste me funciono perfectamente, lo que ocurre es que al abrir el archivo, las celdas quedan desprotegidas como te mencione antes, y solo al correr un macro, me quedan bloqueadas como necesito.
No se por que cuando abro el archivo sin ejecutar nada, ya aparece asi, como puedo arreglarlo, tengo que poner un macro en el arranque que las proteja? Saludos

[Pablus00]

Termine haciendolo de esta manera,

Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Base de Datos").Unprotect "x"
Sheets("Base de Datos").EnableSelection = xlUnlockedCells
Sheets("Base de Datos").Protect "x"
Sheets("FACTURA").Unprotect "x"
Sheets("FACTURA").EnableSelection = xlUnlockedCells
Sheets("FACTURA").Protect "x"
Sheets("Caja").Unprotect "x"
Sheets("Caja").EnableSelection = xlUnlockedCells
Sheets("Caja").Protect "x"
Application.ScreenUpdating = False
End Sub


Por lo menos sali del paso ;)