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 = FalseIf Target.Locked = True ThenApplication.UndoMsgBox "A digitação de dados só é permitida através do formulário."End IfLet Application.EnableEvents = True
End Sub
ou
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)If Target.Locked And ActiveSheet.ProtectContents ThenMsgBox ("Edição não permitida.")Let Cancel = TrueEnd IfEnd Sub
Reference:
MrExcel.com
Tags: VBA, Excel, message, locked, protect, cell, sheet
Nenhum comentário:
Postar um comentário