Macro senha para tabela dinamica e filtros

[marcelaag]

Boa tarde amigos!

 

Preciso que tenha na aba capa, opções para colocar senhas,correspondente a cada gerente/diretor. Cada senha vai abrir 04 tabelas dinamicas(ou dar acesso as abas que elas estão), cada uma já com o filtro só dos centros de custo de cada um,sem opção de poder consultar CC dos outros.

Nessas tabelas precisa ter o filtro para ver os resultados de cada centro de custo. Por exemplo: João tem os CC 2650,2651,2652 e 2653. Para nao ter que fazer um filtro por centro de custo, o certo seria uma macro,apos a senha, que abre a tabela dinamica com o total desses 4 CC com a opção de filtrar para ver um por vez(se puder fazer seleção multipla melhor, mas não precisa).

Só descobri a macro abaixo que e como abrir uma caixa para colocar uma senha

Sub Acesso()

Dim Senha As String
Senha = InputBox("Digite a Senha para acessar as planilhas", ":: Acesso::")
Select Case Senha
Case "123": Sheets("DO_Ano").Visible = -1
Case "234": Sheets("DO_Quarter").Visible = -1
Case Else: MsgBox "Acesso negado!", vbInformation, "Aviso" 'senha inválida
End Select
End Sub

 

Nao sou boa em macro,rs como devem ter notado

 

quem puder ajudar agradeço. E pago um sorvete hahahahaVersao_final_.zip

Obrigada