Como criar uma caixa de aviso no excel.

[Jhony Dt200]

Bom dia meus caros Amigos !

Estou montando uma planilha, onde tenho uma determinda seleção de células que estão protegidas, gostaria que quando selecionadas invés de aparecer o box de aviso com a mensagem que a "célula está protegida", gostaria que abrissem um box de aviso com a seguinte mensagem "Selecionar o Centro de Custo". Por gentileza me ajudem....Abraços !

[webmaster]

Jhony,

Coloque este código na sua planilha e veja se funciona:

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Locked And ActiveSheet.ProtectContents Then
        MsgBox ("Não toque aqui!")
        Cancel = True
    End If
End Sub

Abraços

[Jhony Dt200]

Muito Obrigado pela agilidade com a resposta Thomás!
A fórmula que vc me passou funciona só quando eu dou duplo clique na célula, mas quando eu seleciono a célula sem entrar nela e digito direto qualquer coisa, ainda sim aparece a mensagem de que a célula está protegida e blá...blá...blá...rs . Tem como resolver ?

[webmaster]

Consegui encontrar a solução Thomás....valeu pelo direcionamento !!!! Abraços


Segue a solução:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Locked And ActiveSheet.ProtectContents Then
MsgBox ("Selecione o nome do Centro de Custo")
Cancel = True
End If
End Sub

[Jhony Dt200]

Problema resolvido !!! Melhor blog sobre excel das Américas... valeuuuuuuu !!!!!!!!

[webmaster]

Desse jeito dá até vergonha...

Anúncios