Msgbox bij afsluiten

[Morsyd]

Hallo, ik heb een formulier in Excel, en als ik het wil afsluiten (op het kruisje duwen) had ik graag de vraag gehad "bent u zeker dat u wilt afsluiten?" met een Yes & No knop.
Indien Yes moet hij wel degelijk het formulier afsluiten, indien niet moet hij gewoon het formulier weer terugtonen

Private Sub Userform_Terminate()
  Afsluiten = MsgBox("Afsluiten?", vbYesNo)
  If Afsluiten = vbNo Then
   End If
     
End Sub

wat is er mis aan???

 

[Wigi]

Hallo

Gebruik het QueryClose event in plaats van het Terminate event van de Userform.

Wigi

 

[Morsyd]

Wat is hier dan mis aan? er gebeurt niets

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If MsgBox("Wilt u sluiten?", vbYesNo) = vbNo Then
 Cancel = True
End If
End Sub

 

[Wigi]

Niets mis mee

Waar heb je die code gezet?

 

[Morsyd]

Niets mis mee

Waar heb je die code gezet?

gewoon onderaan in de code van een formulier, maar als ik in een ander formulier op het kruisje duw krijg ik ook de msgbox... raar

 

[Wigi]

gewoon onderaan in de code van een formulier, maar als ik in een ander formulier op het kruisje duw krijg ik ook de msgbox... raar

En zit je wel in de juiste userform?

(OK, misschien wat simpele vraag, maar ik moet het wel zeker weten )

 

[Morsyd]

En zit je wel in de juiste userform?

(OK, misschien wat simpele vraag, maar ik moet het wel zeker weten )

ja... in elke userform dat ik klik krijg ik de msgbox :s

 

[Wigi]

Hang je filetje eens bij aub.

 

[Morsyd]

Hang je filetje eens bij aub.

Momenteel werkt het al bij het formulier dat het moet werken... bij de andere krijg ik gwn de msgbox en of ik nu ja of nee klik, het verdwijnt toch, maar als ik in het bepaalde formulier zit en ik klik op ja (dus afsluiten) dan krijg ik nogmaals het kadertje :s

 

[Wigi]

De keuze is aan jou:

file bijhangen: ik zal ernaar kijken
file niet bijhangen: ik zal er niet naar kijken

Kies maar

 

[Morsyd]

De keuze is aan jou:

file bijhangen: ik zal ernaar kijken
file niet bijhangen: ik zal er niet naar kijken

Kies maar

Your file of 153,0 KB bytes exceeds the forum's limit of 100,0 KB for this filetype.

 

[Wigi]

Enkel een paar userforms en code, rest is niet nodig.

 

[Wigi]

Dit is al wat je moet hebben, achter de juiste userform:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Afsluiten = MsgBox("Afsluiten?", vbYesNo)
    
    Cancel = (Afsluiten = vbNo)

End Sub