Proteger celdas desbloqueadas

Llevo días peleándome con un tema, protejo un hoja de excel mediante una macro, antes de proteger bloqueo toda la hoja excepto la columna F. El problema es que cuando vuelvo a abrir el libro excel, la hoja ya no tiene las celdas bloqueadas y si la copiamos podemos pegarla en otro libro y ver todas la información.
Te adjunto el código, aver si me puedes echar una macro, porque por más que busco la respuesta en los foros no encuentro la correcta.
Cells.Select ' selcciona todas las celdas de la hoja
Selection.Locked = True ' las marca como bloqueadas
Range("F:F").Select ' selecciona el columna f
Selection.Locked = False ' la marca como desbloqueada (para que me permita buscar por esa columna)
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells ' selecciona celdas desbloqueadas
ActiveSheet.EnableSelection = xlNoSelection

1 respuesta

Respuesta
1
Prueba de esta forma:
Columns("F:F").Select
Selection.Locked = False ' la marca como desbloqueada (para que me permita buscar por esa columna)
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True
[email protected]
Juan Carlos; la ultima linea del código no la tengas en cuenta se me ha colado al pegar el código pero no lo utilizo.
ActiveSheet.EnableSelection = xlNoSelection
Hola amigo, no me ha funcionado. Me sigue pasando lo mismo si cierro el libro al volverlo a abrir permite seleccionar las celdas bloqueadas y si copio la hoja y la pego en otro libro veo todos los datos incluso columnas que estaban ocultas y bloqueadas.
Te aseguro que he probado mil maneras diferentes de hacerlo y siempre me pasa lo mismo. Estoy un poco desesperado con el asunto. Espero tengas la solución. Gracias.
Juan carlos, te adjunto el código entero de la macro con las modificaciones que me has indicado, por si acaso te ayuda para ver donde esta el error. La verdad que por más que le doy vueltas no entiendo porque no funciona...
Sub HistoricoDesacerFiltro()
ActiveSheet.Unprotect "contraseña"
Selection.AutoFilter
Columns("C:BQ").Select
Selection.EntireColumn.Hidden = False
Rows("8:8").Select
Selection.ClearContents
Range("C8").Select
Cells.Select ' selcciona todas las celdas de la hoja
Selection.Locked = True ' las marca como bloqueadas
Selection.FormulaHidden = False
Columns("F:F").Select
Selection.Locked = False ' la marca como desbloqueada (para que me permita buscar por esa columna)
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Muchas Gracias.
Para que puedas proteger el libro desde el inicio tienes que crear una macro que lo haga:
Sub Auto_Open()
ActiveSheet. Unprotect "contraseña"
Selection. AutoFilter
Columns("C:BQ").Select
Selection.EntireColumn.Hidden = False
Rows("8:8").Select
Selection.ClearContents
Range("C8").Select
Cells.Select ' selcciona todas las celdas de la hoja
Selection.Locked = True ' las marca como bloqueadas
Selection.FormulaHidden = False
Columns("F:F").Select
Selection.Locked = False ' la marca como desbloqueada (para que me permita buscar por esa columna)
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Prueba con esto.
[email protected]
Lo siento amigo, pero nada de nada, todo sigue igual, cuando guardo y vuelvo a abrir, permite seleccionar todas las celdas y puedo copiar y pegar en otro libro y ver todas las columnas ocultas. Las columnas Ocultas son la A y la B, realmente son las únicas que me interesa proteger para que no se vean.
No se que hacer, te aseguro que antes de consultarte lo he probado de mil maneras distintas pero con todas me pasa lo mismo. No obstante lo único que has hecho ha sido cambiar el nombre de Sub, ¿no? Buenos que se yo...
Ojala me puedas ayudar, porque me ha costado muchísimas horas hacer el excel y este punto es vital. Gracias por tu tiempo, de nuevo.
Hola amigo, me acab de funcionar, le he añadido al final de tuy macro la instrucción:
ActiveSheet.EnableSelection = xlUnlockedCells ' selecciona celdas desbloqueadas
Y me ha funcionado. Gracias, gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para proteger una celda de excel inmediatamente después de entrar (copiar) algún contenido en ella

Me gustaría me ayuden a completar esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E13:J13")) Is Nothing Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End If End Sub Lo que hace es...
2 respuestas

Bloquear celdas con parámetro de ingreso

Tengo un archivo en excel en el cual necesito bloquear unas celdas especificas de aceurdo a un parámetro ingresado, por ejemplo si la celda B5 es igual a Directo la celda B4 debe bloquearse automáticamente, si la celda B5 es igual a Indirecto, la...
1 respuesta

Macro de autofiltros/oculte de columnas con celdas bloqueadas

Tengo una planilla con muchas macros que ejecutan autofiltros y oculte de columnas. Y necesito bloquear celdas luego de que se ingresen valores. El tema que cuando bloqueo las celdas tengo conflicto con la ejecución de las macros. Supongo porque...
1 respuesta

Proteger celdas en excel

Tengo una hoja de excel que quiero que una columna una vez escrito un valor o dato en cada celda de esa columna no se pueda modificar, o que avise pidiendo permiso. No se si esto se puede hacer, sino a ver si hay alguna alternativa similar.
1 respuesta

Macro para bloquear celdas escritas en Excel

Tengo la siguiente macro, pero yo quiero que solo se aplique a la Hoja1. ¿Es posible? Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Proteger celdas con información 'Por.Dam Application.ScreenUpdating = False ActiveSheet.Unprotect...
2 respuestas

Macro condicional

Necesito ayuda para generar una macro que actúe al registrarse la fecha en una celda, y en función del valor de esta celda, otro rango de celdas se bloquee.
1 respuesta

Deseo bloquear un rango de celdas en función de un determinado valor. Ej: Si (A1=1;desbloq;bloq)

Ej: A1 = 1 mientras determinados valores están dentó de lo previsto, cuando estos valores no son los esperados A1 deja de valer 1. En el rango (B1:H5) quiero que se pueda cargar datos o modificar, mientras A1=1, cuando A1 deja de valer 1 se bloquee...
1 respuesta