Ajuda do LibreOffice 24.8
Define a mensagem de erro exibida quando dados inválidos forem inseridos em uma célula.
Você também pode iniciar uma macro com uma mensagem de erro. Um exemplo de macro é oferecido no fim desta página.
Exibe a mensagem de erro digitada na área Conteúdo quando dados inválidos são inseridos em uma célula. Se ativada, a mensagem será exibida para evitar uma entrada inválida.
Em ambos os casos, se você selecionar "Parar", a entrada inválida será excluída e o valor anterior será reinserido na célula. O mesmo se aplicará se você fechar as caixas de diálogo "Aviso" e "Informações" clicando no botão Cancelar. Se você fechar as caixas de diálogo com o botão OK, a entrada inválida não será excluída.
Selecione a ação que você deseja que ocorra quando dados inválidos forem inseridos na célula. A ação "Parar" rejeita a entrada inválida e exibe uma caixa de diálogo que você deve fechar clicando em OK. As ações "Aviso" e "Informação" exibem uma caixa de diálogo que você pode fechar clicando emOK ou Cancelar. A entrada inválida somente será rejeitada quando você clicar em Cancelar.
Abre a caixa de diálogo Macro na qual você pode selecionar a macro que será executada quando dados inválidos forem inseridos em uma célula. A macro será executada depois que a mensagem de erro for exibida.
Insira o título da macro ou a mensagem de erro a ser exibida quando dados inválidos forem inseridos em uma célula.
Insira a mensagem a ser exibida quando dados inválidos forem inseridos em uma célula.
Abaixo está um exemplo de função que pode ser chamado quando ocorre um erro. Observe que a macro assume dois parâmetros que são transmitidos por LibreOffice quando a função é chamada:
CellValue: O valor inserido pelo usuário, como uma String.
CellAddress: o endereço da célula onde o valor foi inserido, como uma String prefixada com o nome da planilha (por exemplo: "Planilha1.A1").
A função deve retornar um valor booleano. Se retornar True, o valor inserido é mantido. Se a função retornar False, o valor inserido será apagado e o valor anterior será restaurado.
Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
Dim msg as String
Dim iAnswer as Integer
Dim MB_FLAGS as Integer
msg = "Valor inválido: " & "'" & CellValue & "'"
msg = msg & " na célula: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "Aceitar mesmo assim?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "Mensagem de erro")
ExampleValidity = (iAnswer = IDYES)
End Function