Editar tabela dinâmica em tabela protegida
Enviado: 07 Dez 2016 às 10:39
Olá para todos.
Estou com uma planilha que é composta por várias tabelas dinâmicas. Estas tabelas devem continuar acessíveis após o bloqueio da planilha.
Quando eu bloqueio a planilha pelo caminho REVISÃO - PROTEGER PLANILHA e marco a opção USAR TABELA DINÂMICA & GRÁFICO DINÂMICO, tudo funciona que que é uma beleza.
A questão é que ela tem um botão que faz a atualização dos dados. Essa atualização é feita através do código abaixo, que desbloqueia, atualiza a planilha e depois bloqueia novamente a planilha.
Meu problema é que, quando o código bloqueia a planilha, eu não consigo mais utilizar as tabelas dinâmicas.
Estou usando o seguinte código VBA
Sub botão()
ActiveSheet.Unprotect Password:="123"
ActiveWorkbook.Model.Refresh
ActiveWorkbook.RefreshAll
ActiveSheet.Protect Password:="123"
AllowUsingPivotTables = True
AllowFiltering = True
End Sub
Como fazer com que, quando a planilha for novamente bloqueada pelo código, tudo fique bloqueado, exceto as tabelas dinâmicas?
Estou com uma planilha que é composta por várias tabelas dinâmicas. Estas tabelas devem continuar acessíveis após o bloqueio da planilha.
Quando eu bloqueio a planilha pelo caminho REVISÃO - PROTEGER PLANILHA e marco a opção USAR TABELA DINÂMICA & GRÁFICO DINÂMICO, tudo funciona que que é uma beleza.
A questão é que ela tem um botão que faz a atualização dos dados. Essa atualização é feita através do código abaixo, que desbloqueia, atualiza a planilha e depois bloqueia novamente a planilha.
Meu problema é que, quando o código bloqueia a planilha, eu não consigo mais utilizar as tabelas dinâmicas.
Estou usando o seguinte código VBA
Sub botão()
ActiveSheet.Unprotect Password:="123"
ActiveWorkbook.Model.Refresh
ActiveWorkbook.RefreshAll
ActiveSheet.Protect Password:="123"
AllowUsingPivotTables = True
AllowFiltering = True
End Sub
Como fazer com que, quando a planilha for novamente bloqueada pelo código, tudo fique bloqueado, exceto as tabelas dinâmicas?