Tengo el siguiente problema:

Cree un macro para que la hoja actual se desproteja (con una contraseña dada), luego se elimine la fila actual y se vuelva a proteger con la misma contraseña, hasta ahí todo funciona bien.

El problema es que necesito que las celdas bloqueadas no se puedan seleccionar, cuando ejecuto el macro, se aplica la configuración que tengo (osea sin permitir seleccionar las celdas bloqueadas), pero cuando guardo y cierro el archivo y lo vuelvo a abrir, pasa que las celdas pueden seleccionarse, cuando desprotejo la hoja se ve que la opción seleccionar celdas bloqueadas esta marcada, osea que se permite.

Cuando protejo manualmente la hoja no hay ningun problema, guardo cierro y vuelvo a abrir y todo esta en su lugar, solo me pasa cuando ejecuto la macro.

Este el el código:

Sub neliminar()

'

' neliminar Macro

'

'

    ActiveSheet.Unprotect ("xxxx")

    Selection.EntireRow.Delete

    ActiveSheet.Protect ("xxxx"), DrawingObjects:=True, Contents:=True, Scenarios:=True _

        , AllowInsertingRows:=True, AllowDeletingRows:=True

End Sub


[/CODE]

Me es imposible subir un archivo en este momento, pero de ser absolutamente necesario lo haré.

Hola Dinash

Para la selección de las celdas:

ActiveSheet.EnableSelection = xlNoSelection 'No permite la selección de las celdas

ActiveSheet.EnableSelection = xlSelection 'Permite la selección de las celdas

ActiveSheet.EnableSelection = xlUnlockedCells 'Solo se pueden seleccionar las celdas no protegidas

Adaptalas a tu código

Hola Dinash

Para la selección de las celdas:

Adaptalas a tu código

Gracias por contestar, si he intenado ya con eso, pero el problema persiste, es decir cuando ejecuto la macro, todo esta bloqueado, pero cuando guardo, cierro y vuelvo a abrir, nuevamente puedo elegir las celdas bloqueadas. Reitero que cuando protejo la hoja manualmente (sin la macro) esto no pasa, si dejo las celdas bloqueadas, cierto y abro y las celdas siguen bloqueadas, solo me pasa cuando uso la macro.

En realidad quisiera saber cual es el problema, si es que esto siempre pasa en excel o es que estoy haciendo algo mal...