¿Cómo deshabilitar la selección de varios elementos en la tabla dinámica?
Cuando creamos una tabla dinámica y establecemos la opción de elementos filtrados, pero no desea que otros apliquen la función Seleccionar varios elementos en la tabla dinámica para alterar los datos originales en su tabla dinámica. En este artículo, hablaré sobre cómo deshabilitar esta opción en la tabla dinámica.
Deshabilite seleccionar varios elementos en la tabla dinámica con código VBA
Deshabilite seleccionar varios elementos en la tabla dinámica con código VBA
Para evitar que la selección de la tabla dinámica cambie, el siguiente código VBA puede ayudarlo a deshabilitar la función Seleccionar varios elementos. Haz lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Haga Clic en recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: deshabilite la selección de varios elementos en la 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. Entonces presione F5 para ejecutar este código, y los botones de flecha de filtro en la tabla dinámica se han eliminado a la vez, vea las capturas de pantalla:
Notas:
1. Si desea volver a habilitar Seleccionar varios elementos, aplique el siguiente código:
Código de VBA: habilite seleccionar varios elementos en la 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 trabajo activa.
Artículos relacionados:
¿Cómo ocultar los botones expandir contraer en la tabla dinámica?
¿Cómo ocultar subtotales en la tabla dinámica?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!