Excel Campo obrigatório em formulário

[Jessy_1985]

Pessoal,

O código abaixo eu coloco num formulário que montei para que o campo seja obrigatório o preenchimento, o usuário não consegue ir para outro campo sem preencher este primeiro. O problema, é se o usuário optar por fechar o formulário, fica aparecendo a mensagem de preenchimento obrigatório.

 

Eu gostaria que ao fechar o formulário, não recebesse essa mensagem. Lembrando que todos os campos do formulário são de preenchimento obrigatório e levarão este código.

 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1 = "" Then

MsgBox "Preenchimento Obrigatório"

Cancel = True

TextBox1.SetFocus

End If

End Sub

Ajuda form.zip

[Visitante]

 

Experimente:

 

Public kick As Boolean

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = 0 Then kick = True
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If kick Then Unload Me: Exit Sub
 If TextBox1 = "" Then
  MsgBox "Preenchimento Obrigatório"
  Cancel = True
  TextBox1.SetFocus
 End If
End Sub

 

[Jessy_1985]

@osvaldomp obrigada pela ajuda...eu tentei e dá erro de compilação, a variável kick não foi definida.

Eu tentei definir como boolean, inteiro, mas também não deu certo, poderia me ajudar?

[Visitante]

Você pode disponibilizar o arquivo com os códigos que passei e que estão apresentando o erro?

[Jessy_1985]

@osvaldomp Oi Osvaldo, eu que comi bola, o código funcionou certinho, muito obrigada pela ajuda.