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

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