userform

[kibus]

Hallo,

Kun je bij een userForm ook een melding geven als er op het kruisje wordt gedrukt?
onderstaand werkt bij mij niet

Private Sub UserForm_Deactivate()
MsgBox "vekeerd afgesloten gebruik u aub de knop om dit af te sluiten", vbOKOnly
Frmdebnaam.Show

End Sub

alvast bedankt

 

[Wigi]

Googlen is toch moeilijk hé

excel vba close userform

Wigi

 

[Relleboer]

Private Sub userform_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "vekeerd afgesloten gebruik u aub de knop om dit af te sluiten", vbInformation
Cancel = True
End If
End Sub

 

[kibus]

Gelukt