[VBA/OFFICE]: Bloccare il tasto di chiusura form

[axsw]

Private Sub Form_QueryUnload(cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
        Case 1
            cancel = False
        Case Else
            cancel = True
    End Select
End Sub

ciao