Buenas, soy nuevo en el foro, ustedes son los mejores!
Mi problema es el siguiente:
Tengo una hoja protegida que contiene una tabla dinamica que se actualiza con un boton de macro, hasta aqui funciona perfecto. Ahora uno de los usuarios del archivo me ha solicitado que la informacion de la tabla dinamica despues de actualizar se pueda seleccionar y copiar para pegarla en otros informes (un copie y pegue normal). ¿es posible adicionar a la macro del boton que actualiza la TD, alguna funcion que deje desbloqueada solo la TD mas no el resto de la hoja de tal manera que la info de la TD se pueda seleccionar y copiar libremente?.
La macro que actualiza es sencilla, es como la siguiente:
Sub ACTUALIZAR_TD()
ActiveSheet.Unprotect ""
ActiveSheet.PivotTables("TD PROGRAMA PCC").PivotCache.Refresh
ActiveSheet.Protect ""
End Sub
¿que le puedo adicionar para que me resulte lo que pido? Mil gracias por su ayuda, colegas!!
Imagino que no deja copiar porque se ha protegido la hoja de tal modo que no permite seleccionar las celdas
Comprueba al proteger la hoja que están marcadas las casillas que permiten seleccionar
Si quieres hacerlo con la macro, modifica la instrucción que vuelve a proteger la hoja tras actualizar la tabla dinámica así:
ActiveSheet.Protect Password:="", Contents:=True
(Si no tiene contraseña no haría falta poner el argumento password, pero lo he añadido porque en tu ejemplo tienes "").
------
Ya sé Excel, pero necesito más.
Hola Paco, no me funciona esta solucion pues con ella me queda desbloqueda toda la hoja, lo cual incluye las celdas con formula y demás...
Estoy tratando de que con una macro pueda seleccionar y copiar SOLAMENTE las celdas de la Tabla Dinamica, el resto de la hoja debe quedar tal como está (algunas celdas estan bloqueadas y otras no pues son para ingresar informacion)
Agradezco mas ideas para resolver el problem. Saludos a todos!
selecciona el rango que ocupa la tabla dinámica y desbloquéalo
luego protege la hoja para que sólo deje seleccionar las celdas desbloqueadas
Algo así:
ActiveSheet.Unprotect ""
ActiveSheet.PivotTables("TD PROGRAMA PCC").PivotCache.Refresh
ActiveSheet.PivotTables("TD PROGRAMA PCC").TableRange2.Locked = False
ActiveSheet.Protect Password:="", Contents:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Prueba con estas posibilidades a ver
------
Ya sé Excel, pero necesito más.