VBA desbloquear celulas ao colar dados com celulas bloueadas

Bom dia galera preciso da ajuda de VCS pois tenho uma planilha que preciso copiar um relatório da intranet e ao colar no excel as células estão ficando bloqueadas e como tenho senha na planilha, apos colar os dados não consigo alterar o conteúdo a não ser desbloqueando a planilha.

Tentei as seguintes opções lembrando que este código dentro de um botão funcionou corretamente me dando condições de edição mas preciso que isto ocorra de forma automática ou seja, ao colar os dados na célula Z1 o comando desbloqueia.

[code=vb]

Private Sub desproteger()


If "z17" <> "" THEN


Columns("Z:AO").Select

Range("AO1").Activate

ActiveSheet.Unprotect ("teste")

Selection.Locked = False

Selection.FormulaHidden = False

ActiveSheet.Protect ("teste"), AllowFormattingCells:=True

Range("z17").Select


End If

End Sub
[/code]


OU


[code=vb]
Private Sub desproteger()

Dim despro As Range

despro = ActiveSheet.Paste


If "z17" = despro Then


Columns("Z:AO").Select

Range("AO1").Activate

ActiveSheet.Unprotect ("teste")

Selection.Locked = False

Selection.FormulaHidden = False

ActiveSheet.Protect ("teste"), AllowFormattingCells:=True

Range("z17").Select


End If

End Sub
[/code]