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