In questo articolo, mostreremo come disabilitare il pulsante x sul form utente utilizzando VBA.
In questo esempio, abbiamo creato un modulo utente che può essere attivato facendo clic sul pulsante Esegui sul foglio di lavoro.
Questo modulo utente contiene un solo pulsante che viene utilizzato per chiudere il modulo utente. Il modulo utente può essere chiuso solo facendo clic su questo pulsante. Anche premendo il tasto di scelta rapida Alt+F4 sulla tastiera non sarà possibile chiudere questo modulo utente.
Spiegazione logica
Per disabilitare il pulsante x del form utente, abbiamo utilizzato l'evento di chiusura della query del form utente. Questo evento viene generato prima della chiusura del form utente.
In questo caso, abbiamo impostato la condizione che se la modalità di chiusura è il controllo del menu, non chiudere il form utente; visualizzare invece un messaggio informativo nella finestra di dialogo.
Si prega di seguire sotto per il codice
Option Explicit Sub running() UserForm1.Show End Sub 'Aggiungi sotto il codice nel form utente Private Sub CommandButton1_Click() 'Chiudi il form utente Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Using Query Close event of Userform ' Confronto del valore della costante della variabile CloseMode 'Se è uguale alla costante incorporata del menu di controllo 'Allora impedisce la chiusura del form utente e 'Visualizza la finestra di dialogo del messaggio informativo Se CloseMode = vbFormControlMenu Quindi 'Modifica il valore della variabile Annulla su True 'Per impostazione predefinita, è False Cancel = True MsgBox "Non puoi chiudere la finestra di dialogo in questo modo!" End If End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica