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

  • Pergunta

  • Quando bloqueamos uma célula no MS Excel, para forçarmos oDataentry 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

    http://inanyplace.blogspot.com.br/2012/07/vba-excel-customizando-mensagem-de.html


    A&A - In Any Place http://inanyplace.blogspot.com/ - bernardess@gmail.com Twitter: @inanyplace

    segunda-feira, 30 de julho de 2012 12:10