Notifications
Clear all

Bloquear aba via código VBA

2 Posts
2 Usuários
0 Reactions
1,407 Visualizações
joebsb
(@joebsb)
Posts: 44
Eminent Member
Topic starter
 

Boa tarde galera.....

Venho hoje dar uma dica bacana, de como bloquear uma aba/célula usando o código VBA.

O mais legal é que vc pode controlar o tempo ou a ocasião em que o bloqueio se inicia e termina.

Vamos fazer um exemplo então.

No caso, vamos precisar de uma variável global... você pode criar ela no inicio de um módulo qualquer do seu projeto(Mas tem q ser módulo ok?), basta declarar conforme o exemplo abaixo:

Global bloqueia As Boolean

Nós vamos usar essa variável para definir quando a aba será bloqueada ou não. Como exemplo, vamos colocar um botão em Plan1 com o seguinte código nele:

If bloqueia = True Then
    bloqueia = False
Else
    bloqueia = True
End If

O código acima, ativa ou desativa a variável que vai bloquear a planilha entenderam?

Agora ficou fácil.... basta ir no código da planilha que vc quer bloquear(ex: Plan2) e colocar o código abaixo:

Private Sub Worksheet_Activate()
If bloqueia = True Then
    MsgBox "Esta aba encontra-se bloqueada no momento!"
    Sheets(1).Activate
End If
End Sub

Esse código verifica se a variável está ativa, e em caso positivo, avisa que a aba está bloqueada selecionando em seguida a aba 1 que não é bloqueada.

Pronto... clicando no botão agora.. a Plan2 vai bloquear/desbloquear na hora que vc quiser....

Não posso colocar dados de contato aqui... mas caso precisem, podem conseguir no seguinte tópico: viewtopic.php?f=19&t=25982

Deixei um anexo com o exemplo dessa dica para quem quiser testar...

Abraços!

Espero ter ajudado.

Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.

Abraços

 
Postado : 20/09/2017 11:34 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Vlw man, ficou interessante isso. Pode me vir a calhar... :geek:

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 04/10/2017 3:41 pm