Este fórum está sendo desativado

[AdrianoTomim]

Ola a todos,

Estou rodando uma macro para desproteger todas as planilhas de um arquivo de uma unica vez, mas se eu associo o codigo a um botao, apos rodar a macro, excel vai para primeira planilha disponivel, eu preciso ficar na planilha onde rodei a macro. Engracado eh que quando rodo a macro via menu, isso nao acontece.
Esse eh o codigo da macro ....

Sub UNPROTECT()
Application.ScreenUpdating = False
Const Senha As String = "PARO19"

For Each Sheet In Worksheets
On Error Resume Next
Sheet.UNPROTECT Senha
Next
Application.ScreenUpdating = True
End Sub

Alguem poderia me ajudar como fazer o excel permanecer na mesma planilha, onde rodei a macro?

desculpe a falta de pontuacao, teclado so em ingles ....

Muito obrigado ...
Adriano

[eduardogrigull]

Antes do "End Sub", ponha:

Código: Selecionar todos

ThisWorkbook.Activate

[AdrianoTomim]

Infelizmente nao funcionou ... continua deslocando para a primeira aba disponivel da direita para esquerda toda vez que roda a macro pelo botao .... mais engracado eh que tenho dias macros iguais, uma protege e a outra desprotege e so a de desproteger faz isso. Codigos sao identicos .... exceto pelo protect e unprotect ....

[Jimmy]

Olá Adriano,

Tente incluindo as linhas em azul.

Sub UNPROTECT()
Application.ScreenUpdating = False
Const Senha As String = "PARO19"
Set Aqui = activesheet
For Each Sheet In Worksheets
On Error Resume Next
Sheet.UNPROTECT Senha
Next
Aqui.Select
Application.ScreenUpdating = True
End Sub

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan