Lukke en form via "krydset" øverst i højre hjørne.

Placer denne i formens kode:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim svar As String
svar = MsgBox("Vil du lukke formen??", vbOKCancel)
If svar = vbOK Then Cancel = False Else Cancel = True
End Sub

Det virker... mega fedt :)
Tak

bak -> men jeg har en rutine som indeholder msgboxen som aktiveres når man trykker på cancel og det ser ud som om den også aktiveres når jeg klikker på krydset nu - så jeg skal svare på 2 msgboxe før formen lukkes ned. Hvorfor gør den det?

bak -> Jeg har indsat din kode i 5 forme.

Prøv lige at vise din kode

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If fCancelYesNo = vbYes Then Cancel = False Else Cancel = True
End Sub

Public Function fCancelYesNo() As Integer
    fCancelYesNo = MsgBox("Are you sure you want to exit ?", vbYesNo + vbQuestion + vbDefaultButton2, "Quit")
End Function

Kan man disable lukke "krydset" i en form?

Jeg har testet din kode og den funker da fint her.
Man kan ikke umiddelbart disable krydset, men koden kunne jo være
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    cancel=true
End Sub

Ok, prøver igen... tak igen :)