VBA Excel - Customizando a mensagem de bloqueio de célula no Excel - Possible to change default Protected Sheet Msg?

Inline image 1
Quando bloqueamos uma célula no MS Excel, para forçarmos o Dataentry através de um formulário, invariavelmente a pessoa que tentar bular digitando diretamente na planilha receberá uma mensagem padrão de alerta.

Podemos manipular essa mensagem com uma mensagem específica:

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

If Target.Locked = True Then
    Application.Undo
    
    MsgBox "A digitação de dados só é permitida através do formulário."
End If

Let Application.EnableEvents = True
End Sub

ou

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
    If Target.Locked And ActiveSheet.ProtectContents Then
        MsgBox ("Edição não permitida.")
        
        Let Cancel = True
    End If
End Sub

Reference: 
MrExcel.com

Tags: VBA, Excel, message, locked, protect, cell, sheet

Nenhum comentário:

Postar um comentário

diHITT - Notícias