DisableCloseformX

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Cancel = True 'In questo modo la chiusura del form
End If 'e' possibile solo tramite codice
End Sub