Impedire chiusura della UserForm cliccando sulla X

Stato
Chiusa ad ulteriori risposte.

ges

Excel/VBA Expert
Amministratore
21 Giugno 2015
29.773
2.465
Como
2011MAC 365WIN
1.045
Le UserForm, com'è noto, possono essere chiuse come normali finestre di Windows cliccando sulla X in alto a destra.



Per impedire la chiusura tramite questa procedura si può usare l'evento QueryClose, utilizzando il seguente codice
Visual Basic:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "Puoi chiudere questa UserForm solo usando il tasto ESCI", vbCritical, "ATTENZIONE!"
        Cancel = True
    End If
End Sub


Se d'ora in avanti si tenterà di chiudere la UserForm dalla X uscirà il messaggio che abbiamo previsto

 
Stato
Chiusa ad ulteriori risposte.

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!