Boa Noite.
Estou usando o código abaixo, mas como minha plan está bloqueada ela gera a seguinte mensagem "não é possivel definir a propriedae hidden da classe range".
Então clico em depurar ai vai para esta linha do codigo "Selection.EntireRow.Hidden = True", tentei inserir um unprotectsheet antes da rotina e um ActiveSheet.Protect Scenarios:=True , UserInterfaceOnly:=True , depois da rotina. mas como a plan está bloqueada com senha ela gera uma caixa de dialogo solicitando a senha de desbloqueio, insiro a senha ela roda a rotina, e então bloqueia, mas sem a senha.

O que eu gostaria que o meu código abaixo fizesse é que ele desbloqueasse a plan com senha "Tafarel" automaticamente, depois rodasse a rotina e então bloqueasse novamente a plan com a senha "Tafarel".
o código que estou usando segue abaixo.

Desbloqueio automático com senha "Tafarel" -> Executar Rotina -> Bloqueia novamente com a senha "Tafarel".

Pq daí não preciso passar a senha pra ninguém.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

ActiveSheet.Unprotect

With ActiveSheet
For Each cell In Range("AG70:AG382")
If cell.Value = "ocultar" Then
cell.EntireRow.Hidden = True
End If
Next

For Each cell In Range("AG70:AG382")
If cell.Value = "reexibir" Then
cell.EntireRow.Hidden = False
End If
Next

End With

Application.ScreenUpdating = True
ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True

End Sub