Macro de bloqueo al introducir valor que permita usar autofiltro

Tengo esta macro que me permite que una celda pase de desbloqueada a bloqueada al introducir un valor, pero al bloquear automáticamente la hoja no me permite usar el autofiltro.

Private Sub Worksheet_Change(ByVal Target As Range)
Hoja1.Unprotect "123"
Target.Locked = True
Hoja1.Protect "123"
End Sub

¿Podríais decirme cual es el paso para que al bloquear permita usar el autofiltro?

3 Respuestas

Respuesta
1

Prueba así:

Private Sub Worksheet_Change(ByVal Target As Range)
  Hoja1.Unprotect "123"
  Target.Locked = True
  Hoja1.Protect "123", DrawingObjects:=True, Contents:=True, _
    Scenarios:=True, AllowFiltering:=True
End Sub

Recomendación:

Convertir fórmulas en macro

Sal u dos

Dante Amor

¡Gracias! 

Efectivamente, estaba poniendo el comando AllowFiltering en la fila de abajo, en vez de detrás de la contraseña.

Al final queda así y me permite bloquear y usar filtro:

Private Sub Worksheet_Change(ByVal Target As Range)
Hoja1.Unprotect "123"
Target.Locked = True
Hoja1.Protect "123", AllowFiltering:=True
End Sub

Respuesta
1

Respondiendo a tu pregunta:

¿Podríais decirme cual es el paso para que al bloquear permita usar el autofiltro?

Debes tener ya aplicado el autofiltro antes de proteger la hoja. Luego la macro que te pasaron en respuesta anterior irá bloqueando las celdas que vayas modificando. Y podrás utilizar el autofiltro..

Pero si no tenías aplicado el autofiltro al momento de proteger la hoja, no te permitirá aplicarlo luego.

Respuesta

I. Hola Nerea, por mi parte no soy conocedor, pero creo que la experta Elsa Matilde respondió a su duda en anteriores consultas, si lo desea podría verlas aquí,

https://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2669132/macro-para-proteger-y-usar-autofiltro 

 https://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2669132/macro-para-proteger-y-usar-autofiltro

Quisiera trasladarle la información que vi sobre su consulta por si pudiese serle de alguna utilidad mientras le atiende un experto de primera mano. Le ruego disculpe la imprecisión y molestias de lectura, ánimo.

https://excel.foroactivo.com/t458-activar-y-desactivar-filtro-en-hojas-protegidas 

https://stackoverflow.com/questions/75671323/vba-code-to-protect-worksheet-but-allow-filtering 

https://www.reddit.com/r/excel/comments/rrwacl/vba_macro_with_enabled_autofilter_grouping_and/ 

https://stackoverflow.com/questions/44830886/excel-advanced-filter-with-protected-sheet 

https://www.exceleinfo.com/permitir-ordenar-filtrar-y-agrupar-en-hojas-protegidas-en-excel/ 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas