Forhindre at brukeren lukker en UserForm med x-knappen

Dersom man ikke ønsker at brukeren skal kunne lukke en UserForm ved å klikke på x-knappen øverst i høyre hjørne, kan man legge til denne makroen i UserForm-ens modulark:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "Du kan ikke lukke dialogen på denne måten!"
    End If
End Sub

Dette vil også forhindre at dialogen lukkes når brukeren trykker Alt+F4.

Dokumentet er sist oppdatert 2000-02-05 22:18:23 Utskriftsvennlig versjon