¿Cómo deshabilitar la selección de varios elementos en una tabla dinámica?
Cuando creamos una tabla dinámica y configuramos la opción de elementos filtrados, pero no deseas que otros utilicen la función Seleccionar varios elementos en la tabla dinámica para alterar los datos originales. En este artículo, hablaré sobre cómo deshabilitar esta opción en la tabla dinámica.
Deshabilitar la selección de varios elementos en una tabla dinámica con código VBA
Deshabilitar la selección de varios elementos en una tabla dinámica con código VBA
Para proteger la selección de la tabla dinámica de ser modificada, el siguiente código VBA puede ayudarte a deshabilitar la función Seleccionar varios elementos. Por favor, sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Deshabilitar la selección de varios elementos en una tabla dinámica
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = False
Next xPF
End Sub
3. Luego presiona la tecla F5 para ejecutar este código, y los botones de flecha de filtro en la tabla dinámica se habrán eliminado de inmediato, ver capturas de pantalla:
 |  |  |
Notas:
1. Si deseas volver a habilitar la opción Seleccionar varios elementos, por favor aplica el siguiente código:
Código VBA: Habilitar la selección de varios elementos en una tabla dinámica:
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = True
Next xPF
End Sub
2. Este código solo se aplica a una tabla dinámica en la hoja de cálculo activa.
Artículos relacionados:
¿Cómo ocultar los botones de expandir/colapsar en una tabla dinámica?
¿Cómo ocultar los subtotales en una tabla dinámica?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos