Para bloquear el diseño de una tabla dinámica mediante VBA, puedes proteger la hoja de cálculo que contiene la tabla dinámica y ajustar la configuración de protección para permitir ciertas interacciones con la tabla sin permitir cambios en su diseño. Aquí te dejo un ejemplo de cómo puedes hacer esto:

   Sub ProtegerHoja()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("NombreDeTuHoja") ' Cambia el nombre de la hoja según sea necesario

       ' Desproteger si ya está protegida
       ws.Unprotect Password:="tuContraseña" ' Utilizar la contraseña adecuada

       ' Proteger la hoja permitiendo el uso de tablas dinámicas
       ws.Protect Password:="tuContraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                  AllowUsingPivotTables:=True
   End Sub

• Proteger la hoja con excepciones: Al proteger la hoja, puedes permitir ciertas acciones, como el uso de informes dinámicos, sin permitir la modificación del diseño de la tabla dinámica.
• Código VBA para proteger la hoja:
• Instrucciones adicionales:
• Cambia `»NombreDeTuHoja»` por el nombre real de la hoja que contiene la tabla dinámica.
• Cambia `»tuContraseña»` por la contraseña que desees utilizar para proteger la hoja.

Este script VBA protegerá la hoja de Excel, permitiendo el uso de la tabla dinámica pero evitará cambios en su diseño, como mover campos de filas, columnas, filtros, o valores. Asegúrate de ajustar los permisos según los requerimientos específicos de interacción con la tabla que necesites.

Nota: Si necesitas desbloquear la hoja para realizar cambios, puedes usar `ws.Unprotect Password:=»tuContraseña»` en otro macro para desproteger la hoja.

Recuerda siempre hacer una copia de seguridad de tus datos antes de ejecutar scripts VBA, por si algo no sale como esperas.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto