Notifications
Clear all

MACRO EXCEL BLOQUEIO PLANILHA DINÂMICA

5 Posts
2 Usuários
0 Reactions
731 Visualizações
(@devorac)
Posts: 4
New Member
Topic starter
 

Boa tarde senhores manjadores,

Estou desenvolvendo uma planilha onde tem um gráfico dinâmico, porem quero deixar liberado ao usuário incluir dados nao bloqueados na planilha (clicando no botão incluir essa parte esta ok dando certo) e tambem alterar os filtros na planilha dinâmica (essa parte esta dando parcialmente certo com o comando para bloquear novamente a planilha no final da planilha).

Montei o seguinte código abaixo, e está "funcionando".

Na planilha a pessoa tem liberdade de inserir informações quando clicar no botão incluir. (Quando ela clica, destrava a macro inclui o dado e trava novamente)

Porem quando o usuário insere um dado no botão inserir ela roda a macro destravando e a travando novamente, mas se ele quiser destravar basta clicar em destravar não precisa mais nem colocar a senha somente clicando em "Desbloquear Planilha" (acho que o problema esta na parte em negrito mas nao sei como resolver).

Alguem me ajuda por favor?

Sub INSERIR()
'
' INSERIR Macro

'Atualiza a tabela dinamica sempre que inserir o codigo
Const CsSenha As String = "1122"

Dim pt As PivotTable
ActiveSheet.Unprotect CsSenha
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
ActiveSheet.Protect CsSenha

'Desprotege a planilha utilizando o password "Senha"
Sheets("BUSCA").Unprotect "1122"

Rows("22:24").Select
Range("A24").Activate
Selection.EntireRow.Hidden = False
Range("B23:G23").Select
Selection.Copy
Range("B24").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("23:23").Select
Selection.EntireRow.Hidden = True
Application.CutCopyMode = False

Sheets("BUSCA").Protect "1122"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowUsingPivotTables:=True

End Sub

 
Postado : 01/12/2017 12:22 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Por aqui não consegui achar nada. Poderia postar sua planilha para ver melhor?

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 01/12/2017 2:37 pm
(@devorac)
Posts: 4
New Member
Topic starter
 

Segue o arquivo.

Note que você pode incluir os dados quando insere as informações, provavelmente ela ja vai estar bloqueada, mas basta você incluir 1 entrada, e clicar em desbloquear, que ela ja vai desbloquear automaticamente.

E isso não deveria acontecer conforme explicado logo abaixo.

Me ajuda por favor?

 
Postado : 04/12/2017 8:54 am
(@devorac)
Posts: 4
New Member
Topic starter
 

Alguém poderia me ajudar por gentileza?

 
Postado : 05/12/2017 8:18 am
(@devorac)
Posts: 4
New Member
Topic starter
 

Up, para quem puder me ajudar.

 
Postado : 07/12/2017 6:12 am