Notifications
Clear all

Desbloqueando ao clicar em OK

3 Posts
2 Usuários
0 Reactions
893 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Estou um problema, quando clico no X e no Sim depois, apaga as linhas e continua bloqueada a planilha, pois até aqui tudo bem.

Ao clicar no X de novo e no Sim vai dizer que não tem mais linhas para apagar e ao clicar em Ok para sair, está desbloqueando a planilha, pois não era para desbloquear

Obrigado !

 
Postado : 06/03/2017 8:53 pm
(@jpedro)
Posts: 111
Estimable Member
 

Boa noite, vonzuben

Isso está acontecendo pq vc tá dando um Exit Sub antes de chegar na linha que chama a macro para proteger a planilha. Então, para resolver, basta vc inserir a "Call Protege" antes do Exit Sub. Assim:

If UltL < 12 Then
        OutPut = MsgBox("Não possui linh(a)s para resetar !", vbCritical, "Plan - Resetar")
        Call Protege
        Exit Sub
    End If

Abs!

 
Postado : 06/03/2017 9:15 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Se deixar assim ao apagar as linhas desbloquea, pois fiz assim

Call Desprotege
código aqui ....
If UltL < 12 Then
        Call Desprotege
        OutPut = MsgBox("Não possui linh(a)s para resetar !", vbCritical, "Plan - Resetar")
        Call Protege
        Exit Sub
    End If
código aqui ....
Call Protege
 
Postado : 06/03/2017 9:59 pm